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INTRODUCTION 


The Atari 520ST and 1040ST computers deliver what their manufacturer 
promises—“Power without the Price”—so for under $1,000, you can get an 
excellent computer with superior color graphics, sound and music in three 
voices, fast processing capabilities, and high-quality mass storage. The most 
effective key to using all these capabilities is the ST BASIC programming lan¬ 
guage, contained on the ST Language Disk supplied with your computer. 

If you own or have access to an ST computer, this book will help you learn 
about programming the ST computer to explore—and ultimately control—its 
advanced features. You don’t need to know any BASIC (or any other pro¬ 
gramming language) to use this book; it starts from the beginning. But if you 
are familiar with BASIC, you probably know that versions of the language dif¬ 
fer somewhat; this book is specifically about the Atari ST version. Whether 
you are using a 520ST or a 1040ST, you can become a good ST BASIC pro¬ 
grammer in a fairly short time, and you should also have a lot of fun in the 
process of learning. 


HARDWARE AND SOFTWARE 

The information in this book is applicable to all models of the ST com¬ 
puters. The differences between models are explained in Chapter 1; briefly, 
the 1040ST contains more memory than the 520ST and has a built-in, rather 
than an external, disk drive. In addition, 520ST computers sold since Feb¬ 
ruary 1986 differ from older versions of the same model. The newer 520STs 
contain the operating system in permanent memory, but for the older ver¬ 
sions it is supplied separately, on disk. 

To work through the programming examples in this book, you need an ST 
computer and the ST Language Disk supplied with it. If you have an older 
520ST, you also need an ST System Disk, which is supplied with those com¬ 
puters. That’s it—nothing else is required. 


WHAT'S IN THE BOOK? 

Here is a preview of the upcoming chapters: 

Chapter 1, Getting to Know the ST, introduces you to the different compo¬ 
nents of the ST and using the GEM Desktop. 

Chapter 2, Fundamentals of BASIC, shows you the rudimentary com¬ 
mands needed to construct a program. You’ll find it helpful if ST BASIC is 
new to you, or if you understand BASIC but want to become familiar with ST 
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BASIC’s characteristics, as well as line numbers, loops, and logic. You’ll also 
learn the powerful editing commands of ST BASIC. 

Chapter 3, Words and Numbers, is devoted to text and math functions. 
Because the Atari has such a large number of keywords in this area, I will 
list each one and explain it in detail. 

Chapter 4 is entitled ST Graphics. Graphics on the Atari ST are easy to 
program and impressive to watch, and once you know how to program them 
with ST BASIC, you’ll probably want to spend a few days experimenting with 
the possibilities. After this chapter, you’ll be creating circles, lines, boxes, and 
three-dimensional objects with ease. You’ll also learn how to obtain any one 
of the ST’s 512 available colors on the screen. 

The Atari ST can play sound effects and musical pieces with three parts 
going at the same time. In Chapter 5, Sounds and Music, you will learn how 
to use the SOUND and WAVE statements to make the ST’s advanced sound 
chip work for you. 

In Chapter 6, Advanced Graphics and Text Programming, you’ll learn how 
to use the VDISYS and GEMSYS functions to take advantage of some 
lightning-fast routines that are built into your computer. 

Chapter 7 is entitled Using the Disk Drive and Printer. The computer is a 
lot of fun to program by itself, but if you want to use a printer, disk drive, or 
some other peripheral, you can do so by programming in ST BASIC. You will 
also learn how to program random-access and sequential disk files. 

Chapter 8 covers Programs and Problems. At this point, you will have 
mastered ST BASIC enough so that you can challenge yourself to a few 
problems. After reading one of the five program descriptions, you should be 
able to attempt a program on your own. If you need a little help, you can 
refer to the hints, and if you get completely stuck, you can watch “over my 
shoulder” as I construct and write the program. You’ll be able to type it 
along the way. Once you're done with this chapter, you’ll have five interesting 
programs to keep. 

The book also contains some valuable appendices: 

Appendix A, ST BASIC Keywords, is an alphabetical summary of the entire 
vocabulary of ST BASIC. Each item is cross-referenced to the chapter in 
which you can find more information about the keyword. 

Appendix B, ST BASIC Error Messages, lists all the error messages ST 
BASIC presents. It briefly explains what each message means and suggests 
ways you can correct the problem. 

Appendix C, Installation, quickly runs through the setup and installation 
procedures for all models of the ST computers. 

Appendix D, The ASCII Character Codes, is a table showing all the char¬ 
acters that can be produced by the ST computers and the values assigned 
to them in the American Standard Code for Information Interchange. 

At the time of this writing, Atari planned to enhance ST BASIC by adding 
some new keywords to the version of the language supplied with all ST com¬ 
puters sold after September 1986. Appendix E, Additional Keywords, sum¬ 
marizes these enhancements. 
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A NOTE ON TYPOGRAPHICAL CONVENTIONS 

Understanding Atari ST BASIC Programming, like most books about com¬ 
puter programming, contains some elements of text that may be unfamiliar to 
new users. These elements—the keywords of the ST BASIC language, lines 
of program code, output from the computer, and so on—consist largely of 
common English words. They are distinguished from each other, and from 
ordinary text, by typographical conventions. These conventions may seem 
cryptic at first, but once you’ve learned them, you’ll find they convey essen¬ 
tial information precisely and economically. 

■ ST BASIC keywords always appear in capital letters: PRINT, FOR, 
COLOR, and so on. Note that the computer does not require you to type 
them in this way. 

■ Instructions to, and messages from, the computer are set in a somewhat 
heavier version of this type face when they appear on separate lines: 

10 REM This is an example of the program typeface 

■ Many of the program examples create “dialogues” between the computer 
and the user. In these examples, the computer’s output is further distin¬ 
guished by even heavier type: 

INPUT "What is your name";NME$ 

What is your name? Tim 

■ Single letters, words, or short phrases that represent computer input or 
output and are not on separate lines are set in italic type: “Type the name 
you want (such as Games, Business, or Payables). . .” 

■ The most complex notation is that used for syntax ( format ) examples. 
These are abstract representations of the exact form in which a keyword 
is to appear, showing all the components, both required and optional: 

INPUT [" prompt"\]variabie[,variable, . . .] 

Characters that are literally part of the statement's format—the word INPUT 
and the quote marks, semicolon, and commas—are set in the regular pro¬ 
gram type. Italic type is used for pseudocode components, for which some¬ 
thing else—the text of the prompt, the names of the variables—would be 
substituted in a real program statement. The brackets enclose optional com¬ 
ponents, either literal or pseudocode, and the ellipses indicate that a compo¬ 
nent may be repeated. Neither of these would appear in a real statement in 
any form. 
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Thus, you can see that for the INPUT statement a prompt is optional, but if 
you include one, you must enclose it in quotation marks and follow it with a 
semicolon. You can also see that at least one variable is required; if others 
are included, they must be separated by commas. 

Throughout most of the book, I will be providing sample programs that 
you should type in, use, and experiment with. The best way to learn from 
this book is to try out the sample programs, and if you follow along, you will 
understand ST BASIC thoroughly by the time you are through reading this 
book. Let yourself have a fun time at it, though; that makes learning a lot 
easier and much more lasting. 












GETTING 
TO KNOW 
THE ST 








2 


Figure 1.1 : The Atari 
1040ST computer 


UNDERSTANDING ATARI ST BASIC PROGRAMMING 


The Atari 520ST and 1040ST are two powerful new computers that feature 
colorful graphics, excellent sound capabilities, and a superior version of the 
popular BASIC language. The 68000 microprocessor makes the ST com¬ 
puters fast and versatile, and the expanding software library and the many 
peripherals available allow you to customize your system to meet your 
needs. The 1040ST is shown in Figure 1.1. 

This book is a complete guide to programming the ST in BASIC. By learn¬ 
ing keywords and programming techniques in ST BASIC, you can make the 
unique abilities of the 520ST and 1040ST computers work for you. 

Here’s a brief review of what distinguishes the ST computers from other 
personal computers: 

■ Easy operation with the GEM operating system and the mouse. 

■ High-resolution graphics (up to 615 by 344 pixels with the monochrome 
display or 607 by 166 pixels with the color display) and the ability to dis¬ 
play up to 16 different colors at once. An example of high-resolution 
graphics is shown in Figure 1.2. 

■ Sound and music in up to three different voices, or sound channels. 

■ A full-stroke, 94-key keyboard with function keys, special keys (such as 
Help), and a numeric keypad, as shown in Figure 1.3. 

■ 512K of user memory with the 520ST and 1024K of memory with the 
1040ST (The letter K is short for kilobyte. One kilobyte equals 1024 bytes; 
a byte is the computer's most common unit of information.) 
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■ Ready-to-run software: the BASIC programming language, the LOGO pro¬ 
gramming language, and the TOS operating system. 

■ Either a single-sided, double-density, 360K disk drive, or a double-sided, 
double-density, 720K drive. 

■ A built-in MIDI port for sound-synthesis components and a DMA port for 
an optional hard-disk drive. 

■ A low price (at this writing, about $800 for a 520ST or $1000 for a 
1040ST). 

The real power of the ST lies in its software; the hundreds of software titles 
available for the ST computer range from games to business programs to 
telecommunications software. To learn the value of the ST system, however, 
you should be familiar with the various components of the computer. Read 
the next section carefully to discover the importance of each of your com¬ 
puter’s components, how they are set up in the computer system, and how 
they work together. 


DIFFERENCES BETWEEN MODELS 

The differences between the 1040ST and 520ST can be summarized 
briefly. The important difference is memory capacity—the 1040ST holds up to 
1024K bytes of information, and the 520ST holds 512K. The 1040ST also 
has a built-in disk drive as part of the keyboard unit, in addition to the ports 
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for an external floppy-disk drive and an external hard-disk drive. The 520ST 
has no built-in disk drive. To use a second disk drive with the 520, you 
would connect the second drive to a port on the first drive. There are also 
minor differences in the physical layout of the ports and switches at the back 
and sides of the keyboard unit. 

In addition, both the 1040ST and those 520ST computers sold since Feb¬ 
ruary 1986 have a ROM (read-only memory) chip that contains the operating 
system. For older 520ST computers, the operating system is supplied on a 
floppy disk—a slightly less convenient arrangement. Appendix C describes 
the start-up procedures for both versions. 


THE COMPONENTS OF THE ST 

Even though the ST works as a complete system, it is made up of hundreds 
of different parts. Most of these parts are housed in a few separate units; for 
example, the computer itself is inside the keyboard, which contains the 68000 
microprocessor, the RAM (random-access memory) and ROM chips, and other 
vital parts. As noted above, the 1040ST computer even has a built-in disk 
drive on the keyboard unit; the 520ST has a separate disk drive. 


The Keyboard 

The keyboard unit is really the computer itself, since the “brain” (the 
microprocessor) is housed within it. To communicate with the computer, you 


Figure 1.3: The ST 
keyboard 














5 


GETTING TO KNOW THE ST 


type letters, symbols, and numbers, and you provide other kinds of informa¬ 
tion that control the computer’s operation by pressing keys on the keyboard. 
Some of the 94 keys may be unfamiliar to you, but all of them serve impor¬ 
tant functions. The standard keys, found on any typewriter, are those of the 
alphabet (A-Z), the digits (0-9), and their accompanying symbols (!, @, #, $, 
and so on). The space bar is for spaces, the Shift keys allow you to print 
uppercase letters or to print symbols instead of numbers, and the Return key 
lets your Atari know that you are finished typing for the moment. For 
example, if you were writing a program and wanted to end the current pro¬ 
gramming line, you would press Return; similarly, if you were using a word 
processor to type a letter and needed to end the paragraph, you would 
press Return. 

Some keys might not be as familar to you. Some brief explanations follow. 


Caps Lock Key 

Similar to Shift Lock on typewriters, the Caps Lock key makes all the let¬ 
ters you type UPPERCASE. If you type other keys while Caps Lock is 
depressed, they will appear in their shifted formats. To turn off Caps Lock, 
just press the key again. 


Control Key 

A control character is the result of pressing the Control key along with a 
letter key. Therefore, pressing Control and G at the same time would be 
a Control-G; control characters are most often used when programming or 
when using an application program. For example, you’d use Control-C to get 
out of a BASIC program while it was running. 


Function Keys 

The keys FI through F10 don’t do anything by themselves unless they are 
programmed for some particular function in an application program. For 
instance, in a telecommunications program FI might call a number, F7 might 
send a stored message, and F10 might hang up the phone. 


Arrow Keys 

You use the Up-, Down-, Left-, and Right-arrow keys to move around the 
screen. When you have text (letters and numbers) on the screen, and you 
want to move in some particular direction, you simply press the corresponding 
arrow key. Pressing the Up-arrow key would move the cursor toward the top 
of the screen, and pressing the Left-arrow key would move the cursor left on 
the screen. Each time you press an arrow key, the cursor moves one space 
(or, in the case of vertical movement, one line) in the direction of that arrow. 
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Backspace Key 

Use the Backspace key to go backward one space and erase the charac¬ 
ter at the cursor position. 


Tab Key 

The Tab key moves the cursor to the next Tab position, commonly set five 
spaces apart on a line. Pressing Tab three times, therefore, would move the 
cursor 15 spaces to the right. The Tab key is useful for formatting, such as 
indenting paragraphs when typing a letter. 


Help Key 

Some programs allow you to ask for help in case you don’t know what to 
do next. Pressing the Help key will make useful information appear on the 
screen if the software you are using supports the Help key. 


Undo Key 

You might sometimes wish you “hadn’t done that” when you are working 
with a program. If the software you are using recognizes the Undo key, you 
can back up and erase your most recent action. For instance, if you were 
using a program that supported the Undo key and you erased an important 
paragraph accidentally, pressing Undo before doing anything else would 
bring back that paragraph. 


Alternate Key 

Like the Control key, the Alternate key offers extra functions, in some 
cases. There’s no need to use it unless a program you are using specifically 
calls for it. 


Delete and Insert Keys 

The Delete and Insert keys are similar, but they serve opposite functions. 

The Delete key removes the character immediately following the cursor 
and shifts everything following that character one space to the left so that an 
extra space isn’t left behind. 

The Insert key, on the other hand, puts an extra space where the cursor is 
located; pressing Insert several times will put that many spaces at the cursor 
position. Delete and Insert are useful when you are editing programs or 
changing a document. 
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Clr/Home Key 

The Clr/Home key moves the cursor back to the upper left corner of the 
screen. This position is known as home on the screen, since it’s the natural 
starting place for the cursor. 


Numeric Keypad 

You might wonder why the number keys, several math functions ( + , -, *, 
/, (, ), and .), and an Enter or Return key appear in two places on the key¬ 
board: the main keyboard and the numeric keypad. You’ll soon discover that 
the numeric keypad is a real timesaver when you are working with a lot of 
data or math problems. The number keys and math symbols work exactly 
like those on the rest of the keyboard, and the Enter key on the numeric 
keypad works exactly like the Return key on the main keyboard. It doesn’t 
take long to become proficient at using the keypad, and soon you may be 
able to type large amounts of numeric data in little time. 


The Back of the Keyboard 

The back of the keyboard unit is just as important as the front. Whereas 
the front serves as your means of entering information through the keyboard, 
the back is the computer’s way of sending and receiving information to and 
from the outside world. Look at the back of your ST to understand the pur¬ 
pose of each port and button. The two ST models have different layouts; the 
following paragraphs describe the back of the 1040, shown in Figure 1.4, 
proceeding from left to right. If you have a 520, consult your manual for the 
differences. 


Modem Port 

A modem is a device that enables a computer to send and receive infor¬ 
mation through a standard telephone line. If you’re interested in telecommu¬ 
nications and videotex, modems are the key to going on-line with computer 
data bases, bulletin-board services, and similar information services. If you 
are going to get a modem, make sure it is RS232C-compatible; you’ll also 
need to shop around for telecommunications software if it’s not included with 
your modem. The VT52 Emulator on the GEM Desktop provides some but 
not all of the functions of the telecommunications programs. Although most 
people don’t really need a modem, it’s a fun and often useful addition to a 
computer system. Moreover, you can use the modem port to connect 
a printer having a serial port, in case you have a printer that doesn’t work 
with the standard parallel port. 
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Figure 1.4: The back of 
the 1040ST keyboard, 
showing ports for the 
computer 



Printer Port 

If you are going to do any word processing or, for some other reason, you 
need printed information from your ST, you will need to use the printer port 
to connect a printer to your computer. There are many kinds of printers, the 
most popular being the dot-matrix and letter-quality types. Dot-matrix printers 
are fast and relatively inexpensive (as little as about $250 at this writing), but 
should be used mainly for informal letters, presentations, and other docu¬ 
ments that don’t have to look like typed copy. Letter-quality printers are more 
expensive and not as fast, but they print type that looks much like a type¬ 
writer’s. Your choice of printer will depend on your needs and how much 
money you’re willing to spend, but the addition of a printer makes any com¬ 
puter a lot more useful. 


Hard-Disk Port 

If you need a disk drive that is faster and can hold more information than 
a standard floppy drive, you might consider getting a hard-disk drive. If so, 
you would connect it to the hard-disk port. A hard disk can store up to 25 
times more information (10 or 20 megabytes) than one floppy disk, and at 
many times the speed of the regular disk drive. Atari offers a 20-megabyte 
drive, and you might also want to check into drives made by other manufac¬ 
turers. This port conforms to the new SCSI (Small Computer System Inter¬ 
face) standard, which allows fast access to hard-disk drives and other 
peripherals. 
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Floppy-Disk Port 

The disk drive included with the 520ST system is connected to the floppy- 
disk port. The 1040ST, of course, needs no port for its first disk drive, which 
is built-in, but it has a port for connecting a second drive. If you decide to 
connect another floppy-disk drive to your 520ST computer, you simply need 
to connect a cable from the left-hand port on the back of the first disk drive to 
the right-hand port on the second disk drive. 


Monitor Port 

The monitor port connects your monochrome or color display to the com¬ 
puter and enables the computer to send its video signal to the high- 
resolution monitor. 


On/Off Switch 

The on/off switch, obviously, turns your ST on or off; be careful with this 
button. Once the computer is off, the ST’s memory is completely erased. 


Power Port 

The power port is where the power supply is connected. The circular plug 
of the power supply goes into this port. Make sure the on/off switch is off 
before plugging in the power supply. 


Reset Button 

The Reset button restarts the ST as if you had turned the power off and 
then on. Because turning the ST off and on isn’t a very good way to restart 
the computer (there is a small risk of damaging the hardware), use the Reset 
button whenever the computer gets stuck in a program so that there is no 
way out of it, or when you want to give the computer a fresh start to clear its 
memory. Be careful with the Reset key; pressing it will erase anything 
in memory. 


Other Ports 


Cartridges 

On the left side of both the 520ST and the 1040ST is a cartridge slot 
where you can insert cartridges having 128K ROM chips. When these car¬ 
tridges are plugged in, you can instantly use programs up to 128K in size. 
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Since the entire program is stored on the ROM chip, it doesn’t use up any of 
the computer’s memory, and it loads instantly because the cartridge connec¬ 
tion provides the computer immediate access to the ROM chip. Cartridges 
are a convenient medium for loading programs, although most cartridge pro¬ 
grams are games. 


Port 0 and Port I 

The ST computers also have two more ports. Port 0 is usually reserved for 
the mouse, and you can use port 1 for a joystick. If you need to use two joy¬ 
sticks, you can temporarily unplug the mouse and plug in the second 
joystick; just remember to plug in the mouse again later, since it is an impor¬ 
tant part of your ST. 


MIDI Ports 

MIDI, an acronym for Musical Instrument Digital Interface, is a standard 
used by musicians for electronic musical instruments, such as keyboard syn¬ 
thesizers. With MIDI, you can connect advanced musical equipment to your 
computer. The ST serves as a programming station for the instrument. 
Because the ST is MIDI-compatible, you could save a lot of money if you 
planned to work with advanced electronic instruments, since you won’t have 
to buy another computer to work with them. The MIDI In port lets the ST 
receive input from a synthesizer or other instrument, and the MIDI Out port 
sends information (such as volume, speed, and so on) to the instrument. You 
can create elaborate music one track at a time with the 520ST or 1040ST 
when either computer is used in conjunction with MIDI-equipped musical 
instruments. 


Peripheral Equipment 


Monitors 

There are two different types of video displays (also called screens or 
monitors) available for the ST computers. The monochrome display, SMI24, 
is a high-resolution green screen that can display crisp text and graphics 
with resolution up to 640 by 400 pixels, or dots. The color monitor, SCI 224, 
can display up to 512 different colors (with any 16 on the screen at one time 
in 320 by 200 pixel mode), with a resolution up to 640 by 200 pixels. 
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Disk Drive 

The disk drive is an important input/output device for your computer. You 
can store programs and information on any 3V2-inch diskette you insert into 
the disk drive, and you can later read this information back into the com¬ 
puter. The disk drive can store information permanently; the computer loses 
everything in its memory once the power is turned off or if there is a tempo¬ 
rary power problem (such as a spike, or momentary reduction in power). 
Treat your disk drive and the individual diskettes with care, and always 
remember to make backup copies of important disks (see the discussion of 
the format choice on the File menu, later in this chapter, to learn how to 
make backups). 


Mouse 

The mouse is an important input device in the ST system, since it allows 
you to move a pointer around the screen to instruct the computer. For 
example, you might want to point to a particular program that you want to 
use, or you might use the mouse to indicate a particular section of text that 
you want erased in a letter. The mouse has two buttons, but you will almost 
always use the left mouse button to click (the mouse button) at something on 
the screen. By moving the mouse around on a flat surface, you can move the 
pointer (or some other corresponding symbol) around the screen, and by 
clicking the left mouse button, you can select items on the screen. The 
mouse is shown in Figure 1.5. 










12 


UNDERSTANDING ATARI ST BASIC PROGRAMMING 


THE GEM DESKTOP 

The GEM (Graphics Environment Manager) Desktop is your link to the 
computer’s operating system, known as TOS (Tramiel operating system). An 
operating system is the controller and manager of the computer’s resources, 
allowing interaction between the CPU (central processing unit) and periph¬ 
erals, disks, and memory You can use the GEM Desktop to move files from 
one disk to another, make backup copies of disks, access files, and perform 
other functions that pertain to disks and the computer’s use of them. Many 
computers, such as the IBM PC, use an operating system in which you type 
all commands directly from the keyboard. Therefore, if you wanted to copy a 
file called PROGRAM.BAS from drive A to drive B, you would type some¬ 
thing like this: 

COPY A: PROGRAM.BAS B: 

However, GEM displays almost everything in the form of small representa¬ 
tions called icons. The icons that look like files, presently displayed on your 
screen, represent floppy disks. The icon that looks like a trash can is where 
files are “thrown away.” Other types of programs and files have different 
icons. This type of system is easy for beginners to learn. For experienced 
users, the mouse serves as an efficient and powerful input device when 
coupled with the GEM system. 

The GEM Desktop is not a language of any kind, as is ST BASIC. Instead, 
it is a specialized program to help you manage the information on your 
floppy disks. Although you need to be in the GEM Desktop to get to ST 
BASIC, GEM and the BASIC language are mutually exclusive; they have 
nothing to do with each other, except that you can switch from one to the 
other with a command. 

The key to using the GEM Desktop is the mouse. Try moving the mouse 
up and down, in circles, and in any other pattern. Notice that the arrow on 
the screen moves in the same direction as the mouse. To open a floppy-disk 
icon to see what files are in it, move the mouse so that the arrow is on the 
floppy-disk A icon. It can’t simply be pointing at it; the tip of the arrow must 
actually be on some part of the icon. Once you have positioned the pointer, 
click the left mouse button twice (not pausing much between each click) so 
that the icon first turns dark (or is highlighted), indicating it has been 
selected, before the window opens. Any object must be selected in this way 
before other operations can be performed on it. 


The Disk Window 

When you open a disk icon, the window for that disk will appear. This win¬ 
dow, which contains all of the program and file icons for that disk, is shown 
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in Figure 1.6 and consists of the following: 

Close Box At the upper left corner of the window is a small box that can 
close the window. If you move the arrow to this box and click the left mouse 
button, the window will close in the opposite way that it opened. 

Move Bar The topmost section of the window is the move bar, which looks 
like a bar of horizontal gray lines. It lets you move the window around the 
screen. Move the mouse pointer to the move bar, hold down the mouse 
button, and move an outline of the window around. When you have moved 
the window where you want it to be, release the mouse button, and the 
window fills in the outline. 

Disk Identifier and Information Line The identifier window is located in 
the center of the move bar. It shows the present directory. In this case, it will 
read A:\ since you are using the disk in drive A. The information line, 
located just below the disk identifier and move bar, shows how many bytes 
have been used on the disk and how many files are in the current directory. 
Keep in mind that not all of the icons will necessarily be displayed in the 
window; if the window is too small to display all the icons, you will have to 
use the scroll arrows (described shortly) to move around the window to see 
the rest of the icons. 

Full Box At the upper right corner of the window is the full box. When you 
point at it and click it with the mouse, the fill box fills the entire screen with 
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the disk window. If you want to reduce the window to its original size, you 
can click the full box again, located in the same place on the full-size 
window. 

Size Box If you want to adjust the size of the window, or look at more than 
one window, move the pointer to the extreme lower right corner of the 
window and, while holding down the left mouse button, move the size box to 
change the window size. Once the outlined proportions show the size that 
you want, release the button and the window will reform to that new size. 
Changing the size is usually helpful when you want to see all the icons and 
the current window isn’t big enough to display them all. 

Scroll Arrows As mentioned previously, you can scroll the contents of the 
window left, right, up, or down to see icons that are hidden because 
of the size of the window. To scroll horizontally, you must select Show as 
Icons in the View menu; you can’t scroll text. If you want to scroll an icon, 
move to the arrow that corresponds to the direction you want it to move, 
then hold down the left mouse button long enough to move it the distance 
you want. The two scroll boxes, located between the up/down and left/right 
arrow pairs, indicate the remaining distance you can scroll in any direction. 
You have to press the mouse button and then release it for each icon you 
want to scroll. 


Using the Window 

Now that you understand the different components of the window, let’s look 
at some specific ways to use the window in the GEM Desktop. (The Desktop 
is shown in Figure 1.7.) Keep in mind that if you want to move an icon, you 
must first put the pointer directly on the icon. Then, holding down the left 
mouse button, move the mouse to put the icon (or drag it) wherever you want 
it to be. Once you have positioned the icon, you can release the mouse but¬ 
ton. Whenever you select an icon or move one icon on top of the trash can or 
a disk icon, that icon will be highlighted; if you point at a program icon and 
press the mouse button, that icon will be highlighted (indicating it is selected); 
if you move an icon on top of the trash can to throw it away, the icon you are 
moving will be highlighted, and the trash can will be highlighted once you 
are close enough that the computer acknowledges that you are throwing 
away something. Here are some ways to use the window. 

Copying a File If you want to copy a program or file from one disk to 
another, first make sure that there is a floppy disk in each drive (or, if you 
have a single-drive system, make sure the window with the file on it is 
opened on the screen, then insert the disk to which you want to copy the file 
into the drive). Next, move the file icon from the window that it is presently in 
to the disk icon where you want the copy to go. For instance, if you have a 
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Figure 1.7: The GEM 
Desktop 



two-drive system, move the file icon from the window over the floppy-disk 
icon; the disk B icon (assuming you are copying the file to the disk in drive 
B) will be highlighted when the tiie icon is “in” that disk. This highlighting is 
shown in Figure 1.8. Once you release the mouse button, the program will 
make a copy of the file to drive B. 
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Throwing Away a File If you want to remove a file permanently from the 
disk, drag the icon from the window to the trash can, as shown in Figure 
1.9. As mentioned earlier, the trash can will be highlighted. Once you release 
the button, the computer will put a dialog box on the screen if the Set 
Preferences option is set to do so. These boxes appear in many different ST 
applications, and they simply request an answer from you; in this case, the 
Atari wants to confirm whether you really want to throw away an item or if 
you would rather cancel the command, because once you’ve thrown it away, 
it’s almost impossible to get back. If you want to throw away the item, you 
would click the OK box to delete the item permanently; if you clicked the 
pointer inside the cancel box, the command would be canceled and you 
would be returned to the regular GEM Desktop. 

Using a File If you want to use a program or "open up" a file, you do the 
same thing that you do to open a floppy-disk icon: you simply double-click 
whatever icon you want to work with. For example, there is a program on 
the Language Disk called SAMPLE.PRG. Move your pointer to its icon and 
double-click the left mouse button (again, don’t pause between each click). 
You will then be in the program; this is a particularly interesting program, 
since it lets you learn about the window by working with it. The window on 
the screen contains a colored oval, and you can change this window as you 
would any other. Try out the size box and move bar; notice that when 
you change the size of the box or move the window, the color of the oval in 
the window changes as well. When you are finished playing with the window 
in SAMPLE.PRG, click the close box to get back to the GEM Desktop. 


Figure 1.9: Drag the 
file to the trash icon to 
throw it away. 
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Choosing More than One Icon If you want to copy several files from 
one disk to another, you don’t have to drag one icon at a time, waiting for 
each file to copy. Instead, you can select several icons at once by enclosing 
them in a rectangle and moving them as a group. To select more than one 
icon, move the pointer to a point away from any icon but in the upper left 
corner of the area of icons you want to move; holding down the left mouse 
button, begin moving right and down and notice that a dotted box is formed 
as you move the mouse. Once you are in the lower right corner of the area 
of the icons you want selected, release the left mouse button. At this point, 
all of the icons within the confines of the dotted box you’ve drawn will be 
selected, as shown in Figure 1.10, and you can now work with these as a 
group. You could throw them away, copy them onto another disk, or do 
anything else with them. 

You will quickly discover that working with windows and icons can be a lot 
easier than dealing with text commands. Now let’s discuss another important 
element of the GEM Desktop that you should know about: the menu bar. 


The Menu Bar 

At the top of the screen of the GEM Desktop you’ll see the menu bar, 
denoted by these words: 

Desk File View Options 

The menu bar is a collection of commands that simplify the use of the GEM 


Figure 1.10: The dotted 
box shows which icons 
you have selected. 
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UNDERSTANDING ATARI ST BASIC PROGRAMMING 


Desktop. When you move the mouse to any one of these menu items, a menu 
will appear below the item, revealing several options, as in Figure 1.11. To 
select any of these options, you have only to use the mouse pointer to move 
to the one you want and double-click the left mouse button. If you accidentally 
select a menu by moving the pointer near the menu bar, just move the pointer 
away from the menu and single-click the left mouse button. This will make the 
menu disappear and allow you to use the mouse normally again. 

Most of the items hidden within the menus are fairly important, so let’s 
examine each option under the four separate menu titles. 


Desk Menu 

Desktop Info If you want to find out the full name and copyright 
information of the program you are using, double-click Desktop Info. In the 
case of the System Disk, the Atari will put a box on the screen telling you 
about this program: 

GEM, Graphics Environment Manager (c) 1985 Digital Research Corp. 

Some other information is on the screen as well, and once you are through 
reading it, click the OK box to get back to the GEM Desktop. 

VT52 Emulator If you have a modem or some other interface attached to 
your modem port, the VT52 Emulator is a simple program in GEM that lets 
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Figure 1.12: The 
Control Panel 
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you communicate with other computers. Once you have entered the VT52 
Emulator, you press the Help key to set up the configuration of the terminal 
at the other end, if necessary. To communicate with other computers, simply 
begin typing. Everything you type will be sent to the modem port so that the 
same text can appear at the computer terminal on the other end of 
the telecommunications line. If you buy a modem, you’ll probably want to 
get more sophisticated software than this, but the VT52 is a convenient 
addition to GEM. To return to the GEM Desktop, press the Undo key. 

Control Panel The Control Panel, shown in Figure 1.12, is an important 
option since it lets you fine-tune your ST. You can adjust the clock or 
calendar, the sensitivity of the keyboard and the mouse buttons, any audio 
feedback while typing, and the palette of colors you want to use. The Control 
Panel is a small window itself, since you can adjust any of these items using 
the mouse and the keyboard with the Control Panel: 


Clock/Calendar The clock and calendar adjustments are located at the top 
of the Control Panel. To change the time, click the pointer at the left part of 
the bar where the current time is located; when the time box is highlighted, 
type the correct time from the keyboard in the format shown in the Control 
Panel (for example, 08:53 AM). To set the calendar, click the calendar box 
and enter the correct date from the keyboard, once again using the format 
shown (for example, 05/12/86). As long as the computer is on, the correct 
time and date will be in memory. 


































20 


UNDERSTANDING ATARI ST BASIC PROGRAMMING 


Keyboard Response There are two slider controls located just below the 
clock and calendar adjustment. The top control shows a finger depressing a 
key slightly on the left and a finger depressing a key a lot on the right; the 
bottom control shows a rabbit on the left and a turtle on the right. The top 
slider control tells the computer how quickly the character should start 
repeating after a key is pressed down. If you move the slider to the left, it 
won’t take long after pressing a key for that key to start repeating. Moving 
the slider to the right will tell the computer to wait a while longer before it 
starts repeating a key. You can adjust the slider to any point between the 
extreme left and right. The same holds true for the lower slide control, which 
tells the computer how fast repeating characters should be repeated. Moving 
the slide near the rabbit makes keys repeat quickly (for instance, pressing 
the A key for a short time might result in AAAAAAAA on the screen), and 
moving the slider toward the turtle makes the key repeat more slowly. 

Mouse Click Response I’ve mentioned several times already that you 
shouldn’t wait long between clicks of the mouse to double-click a mouse 
button. The mouse click response lets you adjust how long you have 
between clicks of the mouse for the ST to interpret it as a double-click. If you 
double-click the mouse button quickly, you might want to set this control near 
the mouse that is standing; if you tend to take a little longer between clicks, 
you might set this control near the resting mouse. You can set the click 
response to 0, 1, 2, 3, or 4, with 0 being near the resting mouse and 4 
being near the standing mouse. 

Audio Feedback Some people like to hear a noise every time they press a 
key on the keyboard, and other people find this feature annoying. Also, 
some people like a bell to ring whenever they make an error, and others find 
this embarrassing or bothersome. You can turn either of these features on or 
off by clicking the box for either feature. The box with a picture of a bell 
controls the error ring; the box to its right, showing the C key, controls the 
keyboard audio feedback. You can toggle either feature on or off simply by 
clicking the mouse button. When the icon is solid, the function is activated; a 
shaded icon shows that the function is disabled. 

Palette Controls If you have a color monitor, you can change any of the 16 
colors you are using with the palette controls. The 16 colored squares at the 
bottom of the Control Panel show the 16 colors presently in memory You 
can click the pointer at any one of these boxes to change that particular 
color. You can change as many colors as you like, one by one. Once you 
have selected the color you want to change, you can adjust the three slide 
controls on the left side of the control panel. These sliders control the 
intensity of the red, green, and blue levels of the color you have selected, 
and by moving any of them, you can change the color to the one you want. 
Because you can adjust each slider precisely, you have 512 different colors 
from which to choose. 
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When you are finished using the control panel, you can close the window 
by clicking the close window box, then you can save your choices to disk by 
choosing Save Desktop from the Options menu. 

Set RS232 Configuration If you are using the modem port on your 
computer, you can configure the port to your specific modem using the Set 
RS232 Configuration option. RS232 is simply a serial port for computers that 
are going to send and receive information. Figure 1.13 shows the menu for 
this option. 

You can set the following items. 

Baud Rate The baud rate is the speed at which your modem sends 
information through the telephone line, measured in bits per second. You can 
choose 9600, 4800, 1200, or 300 baud. The slowest and most common 
modem speed for home computers is 300 baud. 

Parity If you are working with a computer that verifies that the information 
you are sending is being received clearly and without error, you can set the 
parity to odd or even, whichever the host computer requires. Otherwise, you 
can set parity to none. 

Duplex If you are on-line with a computer that will echo back everything you 
type to it, you should be using the full-duplex mode. If the host computer 
simply receives your information without reflecting it back to you, you should 
be in the half-duplex mode so that you can see what you’re typing. 


Desk File Uiew Options 


Figure 1.13: Set RS232 
Configuration menu 


RS232 PORT CONFIGURATION 



Flow Control 


Xon/Xoff: I On I 


* 


Rts/Cts: I On I 


i m i 


[TanceTJ 


TRASH 


Off 

777 









































22 


UNDERSTANDING ATARI ST BASIC PROGRAMMING 


Bits/Char, Strip Bit, Xon/Xoff, Rts/Cts You can adjust the Bits/Char, Strip 
Bit, Xon/Xoff, and Rts/Cts options based on the particular computer you are 
communicating with. You can almost always retain their current settings. 

Install Printer The Install Printer option is important only if you have added 
a printer to your computer. You can specify the following features. 

Printer Type For Printer Type, you can choose Dot for dot-matrix printers or 
Daisy for letter-quality printers. 

Color The color choices are B/W for most printers and Color for color 
printers. 

Pixels/Line The Pixels/Line option determines whether the printer has 1200 
or 960 pixels on each line. 

Quality Print quality choices are Draft for quickly printed, lower-quality copy 
and Final for slower, higher-quality copy. 

Printer Port The Printer Port options lets you choose the Printer port for a 
parallel interface printer or the Modem port for a serial interface printer. 

Paper Type The Paper Type option lets the computer know if you are using 
standard, continuous computer paper (Feed) or if it should pause for you to 
feed the printer one sheet at a time (Single). 


File Menu 

Open You probably won’t be using the Open option often, since 
double-clicking an icon is faster and easier. However, if you do want to open 
a disk icon with the Open option, point to the program or file you want to 
open, click the left mouse button once, then select Open from the File menu. 

Show Info When you have selected an icon, you can find out information 
relating to that program, file, or disk by selecting the Show Info option. You 
can find out such information as the name of the file, how many bytes it 
occupies, and how many bytes are left on the disk. This is also your means 
of renaming a file, but not a folder or floppy disk; when you select Show Info 
and point to an icon, you can use the Backspace key to erase the file name 
and then type in the new file name. Once you press Return or click the OK 
box, you will exit from the Show Info option, and the new file name, if any, 
will be assigned to the icon. You can also use Show Info to get a brief 
description of the trash can. 

New Folder A folder is a way to store several files under a similar heading. 
Think of your programs as individual pieces of paper that you can put into any 
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folder. If the sheets of paper are scattered, you can see all of them, but they 
aren’t organized. If you sort them into different folders, you won’t be able to 
see any of the sheets of paper without opening a folder, but you know that the 
papers are in there. The same is true for an icon folder. You can store 
individual programs “within” certain folders to better organize your files. Once 
you’ve stored your files in the folder, you won’t be able to see them without 
opening the folder (by double-clicking it, as usual). Once the folder is open, 
you can see the individual files and use any of them. You can have more than 
one folder open at a time. The New Folder option creates a folder icon to 
which you can assign a name. When you select New Folder, all you need do 
is type the name you want (such as Games, Business, or Payables) and click 
the OK box. To return to the GEM Desktop, simply click the cancel box. Figure 
1.14 shows a name entered for a new folder. 

Close and Close Window The Close and Close Window options perform 
similar functions. The Close option does the same thing as clicking the close 
box on a window: it closes the current window being used. Once again, it’s 
unlikely that you’ll be using the Close option often. The Close Window option 
is a little more thorough, since it closes all of the folders on a disk as well as 
closing the window. When a window or folder is closed, you can no longer 
access the files within that window or folder; when it’s open, you can see the 
icons and can therefore click them open. 

Format When you want to use a new disk (for important backup operations 
or to store some of your own creations), you will need to format the disk so 



Figure 1.14: A folder 
named Games 
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that it can work with the ST’s disk drive. A blank 3V2-inch floppy disk can 
work with the IBM Portable PC, Apple Macintosh, Atari ST, and other 
computers, but these computers cannot read each other’s disks, so you 
need to format it specifically for the ST. After you choose Format, the ST will 
warn you that formatting the disk will erase any information on it. You can 
then choose OK to proceed or Cancel to exit from the format operation. 
Next, you need to type the name you want to give the diskette, up to eight 
characters. Select a name that indicates the general contents of the diskette, 
such as Bus Progs, Utilities, or Games. You can also decide whether you 
want to use both sides of the disk (if you have a double-sided drive and 
double-sided disks) or only one side. After you select the Format option, the 
ST will begin formatting the diskette, which only takes a few moments. The 
program will then tell you how many bytes of user memory are available on 
the disk. 


Making a Backup By the way, you should know the extra step required to 
back up a diskette. Formatting the blank diskette is the first requirement 
to backing up a disk. Once you have done this, open the window of the disk 
whose contents you want to back up. If you have one disk drive, eject the 
disk in the drive and insert the blank disk; if you have two disk drives, insert 
the blank disk into drive B. Finally, drag the floppy-disk A icon on top of the 
floppy-disk B icon, as shown in Figure 1.15. On the screen, you’ll see a 
message saying that you are about to copy a disk and asking you to confirm 
that this is what you want to do. After you have done so, the ST will copy 


Figure 1.15: The 
floppy-disk A icon 
dragged on top of the 
floppy-disk B icon 
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the contents of the first disk onto the blank formatted disk (for owners of one 
drive, the ST will instruct you which disk should currently be in the drive as 
you copy a disk; just follow the instructions). 


View Menu 

The View menu has only one function: it lets you specify how you want to 
see the programs and files on disks displayed on the GEM Desktop. You can 
choose from the following options. 

Show as Icons The default setting for your computer is Show as Icons. 
This option displays items on a disk as icons, or small pictures, rather than 
as text. 

Show as Text If you would rather see text than graphics, select the Show 
as Text option. The computer will display the names and sizes of the files, 
along with the time and date they were last modified. Figure 1.16 shows 
such a display. You work with these text lines just as you do icons, since you 
can drag them, use groups of them, or perform any of the other functions as 
you do with the normal icons. 

Sort by Name The Sort by Name option displays the files in alphabetical 
order. Folders are listed first, sorted by name, followed by the other files, also 
sorted by name. 


Figure 1.16: Files dis¬ 
played as text 
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Sort by Date The Sort by Date option displays the files in the order in 
which they were last modified, with the newest file first. 

Sort by Size The Sort by Size option displays the files in the order of their 
size, measured in bytes, from the largest to the smallest. 

Sort by Type The Sort by Type option puts the files into groups of 
programs, data files, or any other types of files you have on the disk. It sorts 
by the three-character suffix used to denote the type of file. 


Options Menu 

Install Disk Drive If you want to change the name given to the 
floppy-disk icons, remove a disk icon, or add another disk icon, use 
the Install Disk Drive option. When you select this option, a box will appear 
that allows you to change the label on a disk-drive icon. For instance, you 
might change drive A to the name System Disk. Whatever you choose, you 
must click the install box to make the change, click the remove box to 
eliminate the drive icon, or click the cancel box to get out of the command. 

Install Application The Install Application option is a complex function 
usually used by advanced programmers. Essentially, it lets you specify if 
GEM will be used with a particular program and what kinds of data files will 
open an application, which is simply a usable program. This option is outside 
the scope of this book (if you want to know more, refer to your Atari ST 
owner’s manual). 

Set Preferences There are three components in the Set Preferences option. 
The first two components, Confirm Deletes and Confirm Copies, tell the 
computer whether it should ask for a confirmation when you delete or copy a 
file. If you are proficient with the computer, you may not want to bother with 
either or both of these confirmations. However, be careful about setting either 
of these to No, since it’s always good to have the computer double-check to 
make sure you haven’t made a mistake. The third component, Set Screen 
Resolution, lets you specify the resolution, or fineness of the graphics (and 
hence the number of colors available to you, if any). If you are using a 
monochrome display, you must use High resolution. If you have a color 
screen, you can select Low or Medium resolution. Low resolution allows all 16 
colors, but gives fat letters and lower graphics resolution. Medium resolution 
allows only four colors, but the letters are more suited to word processing and 
business applications, and there is high graphics resolution. 

Save Desktop When you change aspects of the Desktop—as with the Set 
Preferences option or the Control Panel—you might want to make these 
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changes permanent. If so, select the Save Desktop option; otherwise, 
your changes will apply only to the current session, until you turn off the 
computer. 

Print Screen If you have a graphics printer, you can have the contents of 
the screen printed with the Print Screen command. Even the mouse pointer 
will be included in the picture, so you might want to move it out of the way. 


Pointer Movement Keys 

If, for some reason, you need to use the keyboard rather than the mouse 
to move the pointer around—for example, if your mouse is missing or not 
working—you can use the following substitute keys for somewhat clumsier 
control of the pointer. 

Alternate-arrow key Press the Alternate key and any arrow key 
simultaneously to move the mouse pointer eight pixels in the direction of the 
arrow. 

Alternate-Shift-arrow key Press Alternate, Shift, and any arrow key 
simultaneously to move the mouse pointer one pixel in the arrow’s direction. 

Alternate-Insert Press the Alternate and Insert keys simultaneously to 
select (and therefore highlight) the icon that the pointer is pointing at. 

Alternate-Clr/Home Press the Alternate key and the Clr/Home key 
simultaneously to perform the same function as clicking the right mouse 
button. 

Alternate-insert-arrow key Press Alternate, Insert, and any arrow key 
simultaneously to drag the selected icon in the direction of the arrow. 


Icon Types 

Before going into ST BASIC, let’s take a last look at some of the different 
types of icons that can be found on the GEM Desktop. 


Disk Icon 

Floppy disks A and B are represented by the disk icons, located at the left 
side of the GEM Desktop. You can change the name of these icons with the 
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Install Disk Drive option on the menu bar. When you open a disk icon, 
the contents of that disk will be displayed. 


Trash Icon 

Unwanted files go into the trash icon. The program will ask you for confir¬ 
mation when you try to throw away an item (if Set Preferences is set to do 
so), but be careful about putting icons in the trash can anyway. 


Program Icon 

The program icon looks like a square with a dotted bar across its top 
edge. Programs, such as the BASIC programs you’ll be writing later in this 
book, resemble this icon. More advanced assembly-language programs and 
many other applications also take the form of the program icon. To load 
and run whatever program is represented by the icon, double-click that icon. 


Nonprogram Icon 

Many files, such as text documents, graphics pictures, and program 
instructions, are not programs. As shown in Figure 1.17, these files are 
represented by an icon that looks like several pieces of paper with the bot¬ 
tom corner of the top page folded up. 


Figure 1.17: A nonpro¬ 
gram icon 
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Folder Icon 

The folder icon is easy to spot, since it looks like a folder. As discussed 
earlier, you use folder icons for storing other files, and you can create them 
with the New Folder option from the menu bar. 


ENTERING ST BASIC 

Now that I’ve covered the important aspects of the GEM Desktop, I’ll 
focus on the topic of this book: ST BASIC. Eject the disk currently in drive A 
and insert the ST Language Disk (which contains ST BASIC) into the drive. 
Double-click the floppy-disk A icon, and soon the files stored on that disk 
should be displayed. Move your mouse pointer to the BASIC.PRG icon, 
double-click the left mouse button, and get ready to work with ST BASIC. 

In the next chapter, you’ll learn some important concepts of BASIC, and I’ll 
demonstrate some simple programs to build the foundation of knowledge 
you’ll need for more serious programming. 
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The BASIC programming language is not difficult to learn, but before you 
begin drawing fun graphics or producing helpful programs, you need to 
learn some fundamentals of BASIC and rules about programming. Once you 
understand these, learning the words of the BASIC language (keywords) and 
what they do becomes much easier. 


THE BASIC LANGUAGE 

BASIC is an acronym for Beginner’s All-purpose Symbolic Instruction 
Code. Although BASIC is an excellent language for people unfamiliar with 
computers (as the name implies), it is still a powerful and versatile language 
that is excellent for beginning and intermediate programmers. Atari’s version 
of the language, ST BASIC, is particularly suited for the features of the 
520ST and 1040ST computers, especially in the area of graphics. 

The importance of learning BASIC is that it will teach you more about the 
potential of your computer and will let you use some of that power for your 
own needs. Perhaps more importantly, becoming proficient in a computer 
language helps you learn to think more clearly and quickly. Since a com¬ 
puter requires precise, exact instructions to function, you will soon find that 
your own thinking is becoming more precise and analytical. By no means 
will you begin “thinking like a computer": computers can’t think at all—they 
have the intellect and imagination of a light switch. 

You use BASIC to tell the computer what you want it to do. To tell the com¬ 
puter exactly what you want accomplished, you must be precise and exact. 
Thus, you need to type line-by-line instructions—called a program —in an 
orderly fashion. 


Types of BASIC Keywords 

The keywords that form the vocabulary of ST BASIC are grouped into 
three categories: statements, commands, and functions. These terms have 
precise meanings in the context of computer programming, and an effort is 
made in this book to use them consistently. A statement is an instruction that 
is part of a BASIC program and tells the computer to perform a specific 
action. Unlike functions, statements are self-contained; they don’t need to be 
part of a larger instruction to cause some action within a program. Com¬ 
mands are also self-contained instructions; they differ from statements in that 
they cannot be included in programs. Instead, they must be used in the 
immediate mode. Functions are instructions that return values as the result of 
some operation they perform. Although they instruct the computer to perform 
specific operations, they cannot do so independently; they must be included 
as parts of program statements. You’ll see what these distinctions mean in 
practice as you study the keywords in detail. 
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THE ST BASIC WINDOWS 

ST BASIC helps you write programs by providing four separate windows 
to work with: Command, List, Output, and Edit. As you can see in Figure 
2.1, the Edit window is hidden behind the other three when you enter ST 
BASIC. These windows act much like the GEM Desktop windows, since they 
too have a full box, a close box, a size box, scroll arrows, move bars, and 
title bars. Briefly, here are descriptions of what each window does. 


The Command Window 

The Command window is where your cursor is located when you enter ST 
BASIC. The Command window lets you enter either direct commands or pro¬ 
gram lines. When you are programming, you can use this window to add 
program lines or perform special operations (such as finding the value of a 
variable, deleting certain lines, or saving a program to the disk drive). You 
will use the Command window most often, since it is your main means of let¬ 
ting the computer know what you want done and what lines should be in the 
program you are creating. 


The List Window 

When you enter the LIST command from the Command window, the List 
window will display a listing —the contents of your program. You will probably 


Figure 2.1: The ST 
BASIC windows 
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have to scroll a lot to see the whole listing of the program you are working 
on, but the List window gives you a fast way to examine your program with 
all of the program lines put in order. Later, you’ll learn how line numbers tell 
the computer where each program line should be relative to the rest of the 
program. The List window shows the program lines in sequential order. 


The Output Window 

When you actually run, or execute, a program, the output will be displayed 
in the Output window. There are ST BASIC commands that allow you to 
make any window fill up the whole screen; you’ll usually want to use the full 
Output window when a program is running, since you won’t need the other 
three windows. 


The Edit Window 

The Edit window is hidden behind the other three windows. You can see it, 
however, by activating it just like any other GEM Desktop or ST BASIC win¬ 
dow: that is, place the tip of the mouse pointer directly on some part of the 
window and click the left mouse button once. Since only a thin slice of 
the Edit window is showing between the List, Output, and Command win¬ 
dows, you may need to try a few times before the Edit window appears. This 
window works much like the List window, since it shows you all the lines in a 
program; the difference is that you can change the contents of a program 
when you are in the Edit window. You can add or delete program lines, 
change the contents of any one line, and perform other special functions to 
fine-tune your program and eliminate bugs, or trouble spots. I’ll examine all 
the editing functions in the last section of this chapter. 


Using the ST BASIC Windows 

To discover how the Command and Output windows work, type the follow¬ 
ing line into the computer, pressing Return after you are done: 

PRINT 'I'm over here in Output!" 

After you press Return (which you must do after completing any command 
or program line), a short sentence enclosed in quotes should appear in the 
Output window, as illustrated in Figure 2.2. You have entered a direct com¬ 
mand and the computer has followed that command by printing the 
sentence in the Output window. 

When you are using direct commands, you don’t use the Edit or List win¬ 
dows. I’ll explore editing later, but to see how the List window works, enter 
the following short program. Don’t worry if you don’t understand what the 
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Figure 2.2: The com¬ 
puter prints the sen¬ 
tence in the Output 
window. 
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lines do; just type in each line exactly as you see it (press Backspace if you 
type a wrong character and want to erase it), and press Return following 
every line. The computer knows these are not direct commands because 
they are preceded by line numbers. 


10 A = 1 

20 PRINT "The numeric variable A equals ";A 
30 A = A +1 
40 GOTO 20 

Now type LIST and press Return; your program should appear in the List 
window. If you have trouble seeing all of it, expand the window so it displays 
all of the program. Remember that LIST will display the entire program you 
have typed into the computer. Another important command is RUN, which 
tells the computer to start the program; type RUN and press Return to start 
the short program. 

The Output window will soon contain sentences of increasingly large A 
values, as follows: 

The numeric variable A equals 1 
The numeric variable A equals 2 
The numeric variable A equals 3 

(and so on) 

When you are tired of watching A grow larger, hold down the Control key 
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while pressing the C key; this command, known as Control-C, tells the com¬ 
puter to stop running the program and return to the Command window. 

If you want to save a BASIC program to disk, use the SAVE command fol¬ 
lowed by the name of the file in quotes. The file name can have up to eight 
characters, and should make the purpose or content of the program clear. 
For example, if you wrote a program that draws a bouncing ball on the 
screen, you might save it to disk by typing 

SAVE "BOUNCER" 

You can check to see what files are on a disk by typing DIR (for directory), 
followed by the Return key; you'll learn more about DIR in the section on 
disk commands in Chapter 7. Last, when you want to load a program from 
the disk, type LOAD followed by the file name (again, in quotes). To get the 
Bouncer program back, you would only have to type LOAD “BOUNCER". 

The last simple direct command to learn at this point is NEW; you’ll be typ¬ 
ing a lot of sample programs while using this book, but the ST has no way 
of knowing when you are through with one program and want to use 
another one. Therefore, NEW tells the ST to erase the program it currently 
has in memory; every time you are through using a sample program, type 
NEW and press Return before you start the next one. Type NEW now to 
change the program currently in memory. 

You should also know that most of these direct commands can be selected 
from menus as well as typed in from the keyboard. LIST is in the Edit menu; 
RUN is in the Run menu; SAVE is in the Save as File menu; and LOAD is in 
the Load menu. Moreover, selecting Break or Stop from the Run menu 
has the same effect as typing Control-C. 


The ST BASIC Menu Bar 

Notice that the ST BASIC screen has a menu bar of its own at the top 
(shown in Figure 2.3), with the following menu titles: 

Desk File Run Edit Debug 

The menus have the following options. In parentheses, I've indicated the 
equivalent command or keyword to use from the Command window to get 
the same result. 


Desk Menu 

About ST BASIC Copyright information about ST BASIC. 
VT52 Emulator Identical to GEM Desktop. 
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Figure 2.3: The ST 
BASIC menu bar 
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Control Panel Identical to GEM Desktop. 

Set RS232 Configurations Identical to GEM Desktop. 
Install Printer Identical to GEM Desktop. 


File Menu 

Load The Load option loads a BASIC program from the disk. (From the 
Command window, follow LOAD with the appropriate file name in quotes: for 
example, LOAD “MYPROG”.) 

Save As The Save As option saves the program in memory to the disk 
under the name you are about to specify (equivalent: SAVE). 

Delete File The Delete File option erases a program from the disk 
(equivalent: ERA). 

Merge The Merge option loads a file from disk and attaches it to the 
program currently in memory. (The MERGE command does the same thing, 
but you should always be careful that the line numbers in your program and 
those in the file you are about to load are different; otherwise, the program 
lines in the file being loaded will erase the identically numbered lines of the 
program in memory.) 
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Quit The Quit option lets you get out of ST BASIC and go back to the GEM 
Desktop (equivalent: QUIT or SYSTEM). 


Run Menu 

Run The Run option runs the program (equivalent: RUN). 

Break The Break option stops the program that is currently running 
(equivalent: STOP). 

Stop The Stop option makes the program go into the break mode, where 
you can type STOP to halt the program or CONT to continue it. 

Continue The Continue option starts the program from where it left off after 
it encounters a BREAK command or a Stop from the menu options 
(equivalent: CONT). 

Step The Step option makes the program run one step at a time, pausing 
between lines. This is helpful in editing when you want to see the results of 
each program line (equivalent: STEP). 

Buf Graphics The Buf Graphics option allows you to store the graphics on 
the screen so you can recall them later. 


Edit Menu 

Start Edit The Start Edit option lets you enter the editing mode with the Edit 
window (equivalent: EDIT). 

Exit Edit The Exit Edit option lets you get out of the editing mode and return 
to the Command window. 

Help Edit The Help Edit option shows the commands that the function keys 
issue while in the editing mode. 

Goto Line The Goto Line option allows you to go to a certain line number 
in the editing mode (the computer asks you for the line number after you 
select this option). 

Delete Lines The Delete Lines option removes the lines you are about to 
specify (equivalent: DELETE; the computer will prompt you to enter the 
specific line or lines). 

Insert Space The Insert Space option inserts a single space so you can add 
an extra character at the current cursor location. 







39 


FUNDAMENTALS OF BASIC 


Delete Char The Delete Char option removes the character where the 
cursor is currently located. 

Insert Line The Insert Line option adds a blank line where the cursor is 
currently located so you can type another line (usually another program line). 

Remove Line The Remove Line option deletes the entire line at the cursor. 

Page Up The Page Up option goes to the previous page in the program on 
the Edit window. 

Page Down The Page Down option goes to the next page in the program 
on the Edit window. 

Load Text The Load Text option loads text from the disk drive and inserts it 
at the cursor position. 

Save Text The Save Text option saves the specified text to the drive under 
the file name you are about to specify. 

New Buffer The New Buffer option clears the current “holding place” in 
memory for the text you just loaded. 

List The List option lists the entire program (equivalent: LIST). 


Debug Menu 

Tron The Tron option prints on the screen the line numbers of each line that 
the program executes. This helps you find problem areas in your program as 
it is running (equivalent: TRON). 

Troff The Troff option turns off the Tron function (equivalent: TROFF). 

Trace As each line of a program is executed, the Trace option prints that 
entire line on the screen (equivalent: TRACE). 

Untrace The Untrace option turns off the Trace function (equivalent: 
UNTRACE). 

Other Instructions 

There are also statements in ST BASIC that let you open, close, or clear 
any of the four windows. These statements are OPENW (for opening a win¬ 
dow), CLOSEW (for making the window close and disappear) and CLEAR (to 
clear the contents of that window). The numbers you use to denote the win¬ 
dows are 


0 Edit 
1 List 
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2 Output 

3 Command 

If you wanted to clear the output window, you would type CLEARW 2; you 
could close the Edit, List, and Command windows by typing 

CLOSEW 0: CLOSEW 1: CLOSEW 3 

(Notice the colons; they separate the commands.) Also, if you want a certain 
window to fill up the entire screen (as if you had clicked the full box on 
the window), type FULLW followed by the window number 
You’ll learn a lot more about these operations as I discuss individual 
keywords. As you go through the book, make a point of using the sample 
programs and sample command lines; this hands-on experience will make 
learning easier and a lot more fun. 


USER-FRIENDLY PROGRAMMING 

This is a good time to learn about user friendliness in a computer pro¬ 
gram. A user-friendly program is one that any person should be able to work 
with; the program doesn’t have any bugs that cause it to malfunction, the 
instructions within the program and in the written documentation are clear, 
and no matter what dumb mistakes the user makes, the computer will be all- 
forgiving and not do something disastrous such as erase a disk file or restart 
the computer. 

In a word, a user-friendly program is “air-tight” against human or machine 
error. Creating a user-friendly program isn’t as difficult as it might sound, but 
you do have to be meticulous in your testing of the program. Moreover, you 
should make the program “programmer-friendly” by putting plenty of REM 
statements (remarks to yourself that the computer will ignore) in the body of 
the program so that even if you were to examine the code years later, you 
could easily understand what every section of the program did. This makes 
debugging the program easier in both the short-term and the long-term. 

At this point, let’s explore how to use the most important BASIC keywords. 


PRINTING TO THE SCREEN 

One of the easiest words in the language, the PRINT statement, will print 
something on the screen (not on the printout; you’ll learn the command for 
that in Chapter 7): 


PRINT expression 
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Any item that is part of a keyword’s function but is not the keyword itself is 
called an argument. Here, the expression argument you specify can consist 
of numbers, letters, or special characters. Since the cursor should still be in 
the Command window, type the following line, then press the Return key 
once: 

PRINT "HELLO, BABY" 


After you press Return, the words HELLO, BABY should appear in the Out¬ 
put window. What you have done is simple: PRINT instructed the computer 
to print something on the screen, and the words HELLO, BABY (enclosed in 
double quotation marks) were what you wanted to print. The quotation marks 
let the computer know that you were entering a literal string (a sequence of 
characters, such as letters, digits, or symbols) instead of a numeric variable 
(a representation of a number whose value may change during the course of 
the program) or a string variable (a name assigned to a string whose con¬ 
tents may vary). As you’ll see shortly, you could also have entered a literal 
numeric value, which is simply a number that is not a symbolic representa¬ 
tion of anything else. 

Here are a few other examples of how the PRINT statement can print 
strings: 

PRINT "This is a test" 

This is a test 

PRINT "You can separate statements":PRINT "with a colon." 

You can separate statements 
with a colon. 

PRINT "You can separate statements";:PR!NT "with a colon." 

You can separate statements with a colon. 

In the second PRINT statement, the colon (:) separated the two different 
PRINT statements; if you had not typed the colon, the computer would not 
have accepted the line and would instead have printed this: 

Something is wrong 


You must always be careful to type exactly the format that the computer 
requires, since the computer follows your instructions literally and will never 
try to second-guess what you want done. The third line shows not only how 
a colon can separate two different statements, but also how a semicolon (;) 
following the PRINT statement (outside the quotes, since everything in the 
quotes will be printed as is) tells the computer not to skip to the next line for 
the next PRINT statement. 
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Strings 

Before continuing with other types of PRINT statements, you should have 
a clear idea of what a string is. A string is simply a series of characters 
grouped together. All of the following are strings: 


Atari 
1 2 3 

Hello, I am a string 
I sold 3 robots today!!! 

It doesn’t matter whether you use numbers, letters, or symbols—except, of 
course, for the double quotation mark. 

Strings, however, aren’t simply items in quotation marks that follow the 
PRINT statement. They can also be stored in memory, represented by string 
variables. String variables are representatives of strings, and they are fol¬ 
lowed by the dollar sign ($) to indicate that they are string variables as 
opposed to numeric variables, which have no dollar sign. Some sample 
string variables are the following: 

A$ 

BBS 

STRINGS 

HELLOS 

A3$ 

P9S 

These string variables are not the strings themselves: they represent the 
strings. Therefore, the variable A$ might represent the string “This is a test”. 
You would assign this string to the variable by typing the following: 

A$ = "This is a test" 

Once you press Return after entering this line, the string “This is a test” will 
be stored in memory and represented by the variable A$. Consequently, if 
you type 

PRINT A$ 

the phrase This is a test will appear below it. The result will be the same as if 
you had typed this: 


PRINT "This is a test' 
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Here’s another example: 

PRINT A$;A$;A$ 

This is a testThis is a testThis is a test 

The semicolons separated the A$ variables, but notice that there is no space 
between the strings in the output. You could put a space between each rep¬ 
etition of the variable by inserting a pair of double quotes with a space 
between them for each repetition: 

PRINT A$ " ";A$ " ";A$ 

This is a test This is a test This is a test 

Another helpful thing to know is that a comma inserted between variables 
tells the computer to go one Tab stop to the right. Try this one: 

PRINT A$,A$,A$ 

This is a test This is a test This is a test 

Strings are important and require a lot of discussion. I’ll come back to them 
in Chapter 3. 


Numbers 

The last group of items you can print with the PRINT statement are num¬ 
bers. You can print a number directly by preceding it with PRINT: 

PRINT 300 
300 

You can also perform math operations with PRINT, and the result will appear 
below the statement: 

PRINT 3 + 5:PRINT 10*50:PRINT 600/12 

8 

500 

50 

The math symbols (+ for addition, - for subtraction, * for multiplication, 
and / for division) all work with numbers and PRINT, and the other math 
functions (which will be covered in Chapter 3) also work with the PRINT 
statement. 
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The Question Mark 

Since you’ll be typing PRINT a lot when you start working on longer pro¬ 
grams, you can use the abbreviation for PRINT, the question mark (?). This 
will have exactly the same effect as PRINT when used in the same way 
you’d use a PRINT statement. For instance, 

? "Hi" 

would do exactly the same thing as 
PRINT "Hi" 


Rules for Using PRINT 

Here are some important rules to remember about PRINT: 

1. A colon (:) can be used to separate any kind of statements or commands, 
including PRINT statements. 

2. When you follow a PRINT statement with a semicolon (;), the computer 
will not skip to the next line for the next PRINT statement. A comma (,) fol¬ 
lowing a PRINT statement will put the next item printed 13 spaces to the 
right (that is, the next Tab stop). 

3. Everything that is inside double quotation marks will be printed exactly as 
it appears; special marks such as colons, semicolons, and other com¬ 
mands should not be inside quotes. Also be careful to use double quotes 
in pairs: an opening quote and a closing quote. The computer won’t 
know what to do if you have three quotation marks in a PRINT statement. 


VARIABLES AND INPUT 

Numeric variables are even easier to understand than string variables. A 
numeric variable, such as A, SS, or K1, is like a string variable in that it 
represents something else. However, instead of representing a string, it rep¬ 
resents a number. For example, suppose the variable X is equal to the 
number 57.7. If you issued the instruction 

PRINT X 

the number 57.7 would appear. Having a letter represent a number is a lot like 
algebra, but the real difference is that the value of the variable can change. 
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To assign a number to a numeric variable, you simply type the variable 
name, an equal sign ( = ), and then the number. For instance, if you wanted 
the variable A to be equal to 300, you would type 


A = 300 


Almost all versions of BASIC, including ST BASIC, use the optional keyword 
LET preceding this sort of variable definition. Instead of simply typing 
A = 300, you could type LET A = 300. If using LET makes the program easier 
for you to understand, use it; however, most programmers omit the LET 
statement. 

You can name a numeric variable (or, for that matter, a string variable) just 
about anything. Here are a few rules to follow: 

■ Make sure you don’t use a keyword for or in a variable name. The word 
PRINT, for instance, would not be allowed as a variable, nor would XXX- 
PRINTXXXX, since the word PRINT is included in the name. 

■ The first letter of the variable name should be a letter, not a number; you 
can have numbers in the variable name, however. Some sample names 
might be AAA, G99, XX4, L, and R2R. Don’t use anything besides letters 
and numbers, such as &, *, or #. 

■ It often helps to have the variable name reflect its function. For instance, if 
you were writing a game program and needed to store the score of 
player 1 in a variable, you might use a variable called SCORE1 or 
PLAYR1. Since you can use up to 31 characters in naming a variable, the 
name you give it can be specific about its function— 
NETWORTHATYEAREND to indicate the net worth of a person at the end 
of a year, for example. 

Numeric variables, like string variables, are flexible. You can make a vari¬ 
able equal to another variable, equal to a mathematical equation, or equal to 
itself plus some other number or variable. I’ll deal with variables, both string 
and numeric, in much greater detail in Chapter 3. 


INPUT and LINE INPUT 

Two more statements you should be familiar with are INPUT and LINE 
INPUT These two statements allow the computer to get input from the key¬ 
board. INPUT, when followed by a variable name, will stop the program and 
put a question mark on the screen, waiting for you to enter something. If 
INPUT is followed by a numeric variable, you should enter a number; 
if INPUT is followed by a string variable (again, one that has a dollar sign 
after it), the computer will accept a string from the keyboard. Their syntax 
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formats are as follows: 

INPUT ["prompt',]variable[,variable, . . .] 

LINE INPUT [''prompt "; ]string variable 

Here are some examples: 

INPUT X 
? 15.5 
PRINT X 
15.5 

INPUT AA$ 

? Hello there 
PRINT AA$,X 
Hello there 15.5 

As usual, you need to press the Return key to tell the computer you’ve termi¬ 
nated the input line. To clarify the purpose of the question mark (and to 
make the program more user-friendly), you can insert a sentence between 
the keyword INPUT and the variable name; this allows the computer to "ask 
a question” so that you know what to enter. Here are examples of numeric 
and string variable input, each of which has a prompt string: 

INPUT "Please enter your age";AGE 
Please enter your age? 20 
INPUT "What is your name";NME$ 

What is your name? Tim 
PRINT AGE,NME$ 

20 Tim 

INPUT is also versatile in that you can use it to obtain more than one piece 
of data at a time. In fact, you can mix both numeric and string variables in a 
single INPUT line. For instance: 

INPUT "Enter product name, code, and quantity ordered",NME$,C$,Q 

Enter product name, code, and quantity ordered 

eyelet,22X3,7000 
PRINT C$,Q,NME$ 

22X3 7000 eyelet 

This example illustrates several important points about the INPUT statement 
and ST BASIC. Notice first that you must enter the data in the order in which 
the computer expects it; the INPUT statement calls for a string, another string, 
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and a number, and the data from the keyboard must be entered in that order. 
You can also see, however, that once values have been assigned to the vari¬ 
ables, the computer can operate on them in any order; in fact, it need not 
work with all of them at once and often doesn’t. Notice further that commas 
must be used in both the INPUT statement and the user’s input to separate 
the data items. Finally, notice that the prompt has no question mark. Because 
some INPUT prompts are not questions, the command can be entered with a 
comma rather than a semicolon to suppress the question mark. 

LINE INPUT is a specialized version of INPUT, since it accepts only one 
variable at a time; however, it will accept commas, quotation marks, and 
other punctuation marks that might make INPUT work improperly. You should 
use LINE INPUT when you expect that the string entered might contain 
some of these punctuation marks; whatever is entered will be stored in the 
variable string, including quotation marks, commas, and so on. 


LINE NUMBERS 

Any useful program written in any computer language must consist of a 
large number of lines that the computer follows in a particular order. 
Although you can type statements directly into the Command window and 
see the results in the Output window, you will not see the results of the lines 
in a program until you run the entire program. 

One way to establish order among many program lines is to give each of 
them a line number. Although you don’t have to type the lines in the order in 
which they will finally appear, you do have to give the computer appropriate 
line numbers so that it will know how to order them later (your ST will put the 
lines in order for you as you are typing them). Let’s assume you type the fol¬ 
lowing lines into the Command window (you certainly can type them in now; 
one of the most important ways to learn from this book is to type in, use, 
and modify the sample programs): 

30 PRINT 'That's all for now!'' 

10 PRINT "This is one simple program." 

20 PRINT "In fact, it uses only one statement." 

The line numbers precede each statement (although you can combine state¬ 
ments on a single line if each one is separated by a colon), and they can be 
any positive integer from 1 to 65535. Most people tend to number lines 10, 
20, 30, 40, 50, and so on, since it gives them room to insert lines later, 
between existing lines. To see this program, you would send it to the List 
window by typing LIST and then (as always) pressing the Return key: 

LIST 

10 PRINT "This is one simple program." 
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20 PRINT "In fact, it uses only one statement." 

30 PRINT "That's all for now!" 

Notice that the lines are now in order. This is a BASIC program; you can see 
what it does (which probably won't be much of a surprise) by typing the 
command RUN and pressing the Return key. The three text lines will appear 
in the Output window almost immediately. 


AUTO 

When you are writing a lengthy program, you may quickly tire of typing in 
line numbers, especially if they follow a regular pattern (5, 10, 15, 20 ... or 
something similar). The AUTO command lets the computer handle the line 
numbering while you type the contents of the lines. AUTO is useful only if 
you are typing a section of the program in the order that the lines are going 
to follow. The format of this command is 

AUTO start,increment 

where start is the line number to begin with and increment is how much 
higher each line number will be. AUTO 10,20, for instance, would produce 
the line numbers 10, 30, 50, 70, and so on, until you broke out of the auto¬ 
matic line numbering by pressing Control-G. The computer will wait until you 
enter the content of the line and press Return before it prints the next line 
number on the screen. Finally, if the computer displays a line number that 
already exists, two asterisks (**) will appear before the number; if you want 
to type a new line and erase the old one, you can proceed normally. 
However, if you don’t want to erase the old line, break out of the AUTO com¬ 
mand with Control-G. 


Line References: GOTO and Labels 

Not only do line numbers provide a way to put separate command lines in 
order, but they also serve as a reference point so that the ST can jump to 
different points in the program. Here’s a short sample to illustrate this point: 

10 PRINT "I hope you like this next sentence;" 

20 PRINT "Whose tea is this?" 

30 GOTO 20 

When you run this program, the output will be 

I hope you like this next sentence: 

Whose tea is this? 
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Whose tea is this? 

Whose tea is this? 

(and so on) 

This is called an infinite loop, since the computer will never get out of it. The 
GOTO 20 in line 30 tells the computer to go back to the beginning of line 20 
and start over from there. Since it keeps running into line 30 after running 
line 20, it will never stop printing its innocuous question. As you can see, the 
line numbers are used as a reference so the computer has definite points 
where it can go. The GOTO statement has two possible syntax formats: 

GOTO line number 
GOTO label 

As you can see, another way to set up a reference is to use a label in a 
program line. A label is simply a name you give to a program line, followed 
by a colon (:), so that you have an easy way of referring to a particular rou¬ 
tine. When you are writing a long program, you don’t want to be bothered to 
remember a long list of line numbers and their corresponding routines. 
Instead, you might give specific routines distinctive labels that you can 
remember easily. The following sample program accepts input from the key¬ 
board about the kind of computer you have (if your answer is Atari ST, the 
program congratulates you; otherwise, expect a mild insult): 

10 START:PRINT "This is the Computer Test" 

20 INPUT "What kind of computer do you own";COMP$ 

30 IF COMP$ = "Atari ST" THEN GOTO GOOD 
40 PRINT "There's no accounting for taste.":GOTO START 
50 GOOD: PRINT "Good for you. That's a fine choice, if I may say 
so." 

60 GOTO START 

The label GOOD serves as a reference point for the routine that congratu¬ 
lates the user, and START marks the beginning of the program. If you ran 
this program, the output might be 

What kind of computer do you own? ZIPCHIP 80 Model 1 
There's no accounting for taste. 

What kind of computer do you own? Atari ST 
Good for you. That's a fine choice, if I may say so. 


GOSUB 

Sometimes you will want the computer to go to a particular routine and 
then return from it once it is done using that routine. This most often occurs 
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when you have some predefined routine that you will be using frequently in 
the program in various places (such a routine is often called a subroutine ). 
The GOSUB statement works like GOTO, since it sends the computer to a 
particular program line or label, but when the RETURN keyword is encoun¬ 
tered, the computer will go back to the place it used to be before it went to 
the subroutine. The syntax of this construction is 

GOSUB line number or label 


RETURN 

The following example and its resulting output will clarify the concept: 

10 PRINT "We need to learn some more BASIC statements." 

20 GOSUB 30:GOTO 10 

30 PRINT "Sure—such as GOSUB and RETURN!" 

40 RETURN 
RUN 

We need to learn some more BASIC statements. 

Sure—such as GOSUB and RETURN! 

We need to learn some more BASIC statements. 

Sure—such as GOSUB and RETURN! 

We need to learn some more BASIC statements. 

Sure—such as GOSUB and RETURN! 

When the computer encounters GOSUB 30 in line 20, it jumps to line 30 and 
remembers the point where it left off in line 20. When it encounters the 
RETURN statement at line 40, the computer returns to the point where it left 
off. Each GOSUB must encounter a RETURN at some point, or else it will 
not return to the point where it left off. 

You could also modify an earlier program to perform the same function it 
did previously, but this time use GOSUB and RETURN instead of GOTO: 

10 START:PRINT "This is the Computer Test" 

20 INPUT "What kind of computer do you own";COMP$ 

30 IF COMP$ = "Atari ST" THEN GOSUB GOOD:GOTO START 

40 PRINT "There's no accounting for taste.":GOTO START 
50 GOOD: PRINT "Good for you. That's a fine choice, if I may say 
so." 

60 RETURN 
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ON 

A variation on the GOTO and GOSUB statements is provided by the ON 
keyword, which makes GOTO and GOSUB much more versatile. The format 
for using ON is 

ON variable GOTO line or label[, line or label, . . .] 

ON variable GOSUB line or label[line or label, . . .] 

The ON command tells the computer, “If the variable equals 1, go to the first 
line number; if the variable equals 2, go to the second line number; if the 
variable equals 3, go to the third line number,” and so on. You can 
direct the corresponding line number to either GOTO or GOSUB, and you 
can list as many line numbers or labels as you like after the GOTO or 
GOSUB keyword. Here is a short program to illustrate how this command 
can be helpful. First, here is an inefficient program: 


5 INPUT "Give me a value between 1 and 4 for the variable";A 
7 IF A<1 OR A>4 THEN GOTO 5 
10 IF A = 1 THEN GOTO 50 
20 IF A = 2 THEN GOTO 60 
30 IF A = 3 THEN GOTO 70 
40 IF A = 4 THEN GOTO 80 
50 PRINT "A IS ONE":END 
60 PRINT "A IS TWO":END 
70 PRINT "A IS THREE":END 
80 PRINT "A IS FOUR":END 

Now, here is the same program made more efficient with ON: 

5 INPUT "Give me a value between 1 and 4 for the variable";A 
7 IF A<1 OR A>4 THEN GOTO 5 
10 ON A GOTO 50,60,70,80 
50 PRINT "A IS ONE":END 
60 PRINT "A IS TWO":END 
70 PRINT "A IS THREE":END 
80 PRINT "A IS FOUR":END 
RUN 

Give me a value for the variable? 3 
A IS THREE 


Notice how much shorter the second program is when compared to the 
first. When you list the line numbers after ON ... GOTO or ON ... GOSUB, 
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they don't have to be in any order. You could write: 

ON T GOSUB 50, 23, 600, 4, 700 

Last, you can use the instruction ON ERROR GOTO followed by a line 
number or label to tell the computer to go to a particular part of the program 
if it encounters an error. 


LOOPS 

Another important concept you need to understand to program in BASIC 
is the loop and how to use it. A loop is a series of instructions that will be 
executed repeatedly in a program. The number of repetitions may be deter¬ 
mined simply by counting from one number to the next, or by testing a 
stated condition until it is met. Let’s look at counting loops first. A program 
will often have to do some counting, perhaps to generate a pause in the pro¬ 
gram or draw some graphics. When a computer (or a person) counts, it 
starts at one number and ends at another number. To get from one number 
to another, it counts in certain steps. For example, if you had to write a 
computer program that had the computer count from 1 to 11 in steps of 2, 
printing each number as it counted, you might write 


10 

A= 1 

20 

PRINT A 

30 

A = A + 2 

40 

GOTO 20 


FOR... NEXT 

A more efficient way to do the same thing, however, would be the 
FOR ... NEXT loop: 

FOR index = start TO finish [STEP increment] 
body of loop 
NEXT 

This tells the computer to count from one number (start) to another number 
(finish), repeating the instruction in body of loop in the specified increment. In 
the above example, you could complete the program on one line: 


10 FOR A = 1 TO 11 STEP 2:PRINT A:NEXT 
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Using the index variable A, the computer knows to start counting at 1, end 
counting at 11, and count in steps of 2. If you omitted the optional STEP 
clause, it would count in steps of 1. 

The FOR... NEXT loop is versatile, since you can substitute variables for 
numbers, use negative numbers, and end the loop with the NEXT statement 
wherever you want it. The following is a more complex example of the 
FOR ... NEXT loop: 

10 A = 500:YC1 =45.5 

20 FOR X = A TO YC1 STEP -.5 

30 PRINT "The variable X is currently ";X 

40 NEXT 

RUN 

The variable X is currently 500 
The variable X is currently 499.5 
(and so on until) 

The variable X is currently 45.5 

Just as line numbers can serve two purposes—they order the lines and 
serve as reference points—FOR... NEXT loops serve two purposes as well: 
they not only count, which enables you to repeat a particular function any 
number of times, but the index variable they use to count with can be used 
in the program. As the FOR... NEXT loop is counting, you can use the vari¬ 
able it is counting with for some purpose. Let's assume you wrote a program 
that would accept a starting and ending number from the keyboard and then 
print all the squares of the numbers in-between. Your program might look 
something like this: 

10 INPUT FRSTMNPUT LST 
20 FOR X = FRST TO LST STEP 1 
30 PRINT "The square of";X;"is"X*X 
40 NEXT 
RUN 
? 4 
? 6 

The square of 4 is 16 
The square of 5 is 25 
The square of 6 is 36 


Nesting 

Another helpful technique, called nesting, is useful when you have a loop 
within a loop. Remember that the FOR... NEXT loop is simply a counting 
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device, and you can have a counter within a counter (or, for that matter, a 
counter within a counter within a counter, and so on). Take a look at this pro- 


gram 

and its resulting output: 


10 

FOR A = 1 TO 3 


20 

FOR B = 1 TO 4 


30 

PRINT A;",";B, 


40 

NEXT:PRINT:NEXT 


RUN 

1,1 

1,2 1,3 

1,4 

2,1 

2,2 2,3 

2,4 

3,1 

3,2 3,3 

3,4 


The FOR... NEXT loop using the variable A is counting from 1 to 3, but 
each time this loop is incremented, the FOR... NEXT loop using the variable 
B counts from 1 to 4. The B loop is nested inside the A loop, so that each 
time the A loop runs, the B loop performs its entire counting sequence. 
Here’s one more example: 

10 FOR A = 1 TO 3 
20 PRINT "I am the A loop" 

30 FOR B = 1 TO 2:PRINT "I am the B loop":NEXT 

40 NEXT 

RUN 

I am the A loop 
I am the B loop 
I am the B loop 
I am the A loop 
I am the B loop 
I am the B loop 
I am the A loop 
I am the B loop 
I am the B loop 

Once a loop ends, it proceeds to whatever follows it. In this case, the pro¬ 
gram is over, so control is once again returned to the Command window. To 
make your program listing less confusing, you can follow the NEXT state¬ 
ment with the corresponding variable that its loop is using. With NEXT A and 
NEXT B, you can easily see which NEXT corresponds to which FOR. 

WHILE . . . WEND 

Another type of loop, involving the keywords WHILE and WEND, is different 
from FOR ... NEXT loops in that it is a conditional loop; that is, instead of 
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counting from one number to another, it simply keeps looping until a particular 
condition is met. Once that condition is met, the computer goes on to what¬ 
ever comes after the loop (more specifically, whatever comes after WEND, 
which marks the end of the loop). The format is similar to FOR ... NEXT: 

WHILE expression 
body of loop 
WEND 

To set up a WHILE . . . WEND loop, follow the word WHILE with the con¬ 
dition ( expression) that must be met to complete the loop. Next, insert what¬ 
ever action you want performed (body of loop) while that condition is not 
true (in other words, while the loop is running). Close the loop with a WEND 
statement. In the example below, the WHILE . . . WEND loop surrounds an 
INPUT statement that asks for the user’s name; unless that string input 
equals Ronald Reagan, the loop keeps going; once that condition is met, 
however, the computer prints Hello, Mr. President, on the screen. 

10 FULLW 2:CLEARW 2 
20 WHILE NME$<>"Ronald Reagan" 

30 INPUT "What is your name";NME$ 

40 WEND 

50 PRINT "Hello, Mr. President." 

The WHILE... WEND loop can also be nested so you can perform more 
complex conditional looping. Try to use FOR ... NEXT and WHILE ... WEND 
loops as efficiently as possible; you’ll find good examples of them throughout 
this book. 


ARRAYS 

Although numeric and string variables are handy ways to store information, 
you sometimes might have data that needs a more organized system. For 
instance, suppose you had data for three salespersons over a three-month 
period and you wanted to store how many dollars of merchandise each per¬ 
son sold in a particular month. Let’s call these hypothetical salespeople 
Brian, Al, and Chi, and record the sales data for the months of February, 
March, and April. If you tried to store this numeric data in ordinary variables, 
it might look like this: 

BF = 500 AF = 450 CF = 690 

BM = 525 AM = 625 CM = 333 

BA = 452 AA = 533 CA = 546 
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This series of apparently unrelated variables is obviously an inefficient way 
to store data, especially if you start dealing with 20 salespeople over a 
30-month period. With this small group, the variables are fairly easy to 
remember (AM is Al in March, CA is Chi in April), but computing with these 
variables will quickly become cumbersome. 

The more efficient way to store this type of ordered information is with an 
array. An array is a set of numeric or string variables arranged in an ordered 
fashion. Since you’re dealing with two types of information in this case (sales¬ 
people and months), let’s assign numbers for each of these dimensions. The 
salespeople will have the numbers Brian = 1, Al = 2, and Chi = 3, and the 
months will be February = 1, March = 2, April = 3. Therefore, if you were using 
the variable S for the array, Brian’s sales in March would be in S(1,2), since 
Brian’s number is 1 and March’s number is 2. Chi’s sales in February would 
be stored in the variable S(3,1). There would be nine variables stored from 
S(1,1) to S(3,3), and using this system, it would be easy to find anyone’s 
sales in a particular month. 

Arrays are described as having a certain number of dimensions. In this 
case, there were two factors—the salesperson and the month—so this was a 
two-dimensional array. An array with only one dimension might be one stu¬ 
dent’s grades through 12 years, ranging from G(1) to G(12). A two- 
dimensional array might be like the example just given, using a variable such 
as S(3,2). A three-dimensional array has three elements, perhaps recording 
the sales of a product (dimension one) in a certain month (dimension two) in 
a certain store (dimension three); therefore, you would store sales for product 
2 in month 5 at store 3 in the variable SA(2,5,3). The number of dimensions 
you can use is restricted by the computer’s memory, and once you go 
beyond three dimensions, the memory required gets rather large. However, 
with the ST’s 512K or 1024K of memory, only a very large array would pro¬ 
voke an insufficient memory error. 


DIM 

To set up a certain amount of memory for an array, you need to use the 
DIM statement: 

DIM variable (subscript[ f subscript f . . .]) 

DIM is easy to use, since you only have to follow it with the maximum 
dimensions you want to allow in the array. For example, if you were setting 
up a three-dimensional array that would range from XX (0,0,0) to XX (5,5,3), 
you would type DIM XX (5,5,3) before assigning values to any elements in 
this array. You will almost always use DIM at the beginning of a program, 
and you can only set the dimensions for a particular variable array once 
(there’s no need to do otherwise). 
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OPTION BASE 

Also, if you prefer to have your arrays start at 1 rather than 0, you can use 
the OPTION BASE statement: 

OPTION BASE number 

If you don’t use OPTION BASE, any variable array you establish will start at 
element 0; therefore, if you type DIM A (5), you will have A(0), A(1), A(2), 
A(3), A(4), and A(5) at your disposal. Some people prefer starting everything 
with the number 1 rather than 0, however, so by typing OPTION BASE 1, all 
of your variable arrays will start with element 1. OPTION BASE 1 followed by 
DIM A(5) would make the variables A(1), A(2), A(3), A(4), and A(5) available. 
If you want to go back to the default, type OPTION BASE 0. 


String Arrays 

Keep in mind that arrays aren’t just for numbers; although numeric data is 
usually best suited for arrays, you can store strings in string arrays. Some 
sample string array names might be A$ (3,3), BH$ (5), and SCU1$ (6,3,9). 
Everything about string variable arrays is the same as for the numeric arrays, 
except for the added dollar sign. For example, you might have the following 
one-dimensional string array: 

A$(1) = "Alabama" 

A$(2) = "Arkansas" 

A$(3) = "Louisiana" 

PRINT A$(3) 

Louisiana 


READING DATA 

If you already have a set of numbers or strings that you want stored in 
variables, you can use the READ and DATA statements to enter this informa¬ 
tion without having to type it each time you run the program: 

READ variable[,variable] 


DATA number or string^number or string,...] 
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READ and DATA are simple to understand: READ will read a piece of data 
from another part of the program, and you designate the location of the 
data by preceding it with the word DATA. You can use the READ command 
with either string or numeric variables, and as long as you make sure the 
variables in the READ statements correspond with the type of each DATA 
item (number or string ) to be read, you shouldn’t have any trouble. For 
instance, the following would result in an error since the numeric and string 
variables are reversed in the DATA statement: 

10 READ A,A$ 

20 DATA Hello,21 

Here’s a simple, correct example of the ST reading the variables A, B$, and CC: 

10 READ A,B$,CC 

20 PRINT "All through reading the data." 

30 DATA 40,Hello,30 

Once the program finishes, A will be equal to 40, B$ will equal the string 
Hello, and CC will equal 30. The next example is more complex. First, the 
Output window is made to fill the screen and is cleared of its contents, as in 
line 10 of Listing 2.1. 

Next, a nested loop structure in lines 20-50 reads in the nine pieces of 
data found in lines 130-150 of the program into the array SA (S,N). After it 
has read that data, the ST reads the three months into the array MN$(x). 


Listing 2.1: Using 
RE AD... DATA with 
arrays 


10 

FULLW 2:C LE ARW 2 


20 

FOR S=1 TO 3 


30 

FOR N = 1 TO 3 


A0 

READ S A ( S , N) 


50 

NEXT:R E A D NM$(S):NEXT:READ MN$(1) / MN$(2),MN$(3) 


60 

PRINT "Salespeople:" 


70 

PRINT "Brian=1, Al=2, Chi=3" 


80 

PRINT "Months:" 


90 

PRINT "May=1, June=2, July=3" 


100 

INPUT "Which figure do you want to see",n1,n2 


110 

PRINT "Sales for ";NM $(N1);" during ";MN$(N2);": 

$";SA(N1,N2) 

120 

GOTO 60 


130 

DATA 540,430,612,Brian 


140 

DATA 367,721,443,Al 


1 50 

DATA 469,382,678,Chi 


160 

DATA "May","June","July" 
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The names, months, and corresponding code numbers are printed so that 
you know which numbers to enter to find out the sales of a particular sales¬ 
person in a certain month (see lines 60-100, Listing 2.1). 

Once the computer has both numbers that indicate which sales figure to 
display, it prints the information and goes back to line 60 (see lines 
110-120). The last few lines of the program (130-160) are DATA statements, 
and although they could be located anywhere in the program, they are usu¬ 
ally found at a program’s end. 

When you run the program shown in Listing 2.1, you can enter the sales¬ 
person and the month you are interested in (using the number codes listed); 
once the computer has this information, it can retrieve the sales figure you 
want from its stored data: 

RUN 

Salespeople: 

Brian = 1, Al = 2, Chi = 3 
Months: 

May = 1, June = 2, July=3 

Which figure do you want to see? 2,1 

Sales for Al during May: $367 

Using DATA statements lets you set up fixed sets of information for the com¬ 
puter to use, and with the help of variable arrays, data is even easier to 
compile and present. 


RESTORE 

In some programs you may need to read the same data item more than 
once. For this purpose ST BASIC includes the RESTORE statement: 

RESTORE [line number] 

Every time the computer reads a piece of data, a pointer within its memory 
is adjusted so that it points to the next piece of data. (Otherwise, the READ 
statement would keep reading the same first number.) The pointer keeps 
moving to the next data element each time READ is used, and once all the 
data has been read, you’ll get an error message if you try to read more. 
RESTORE resets the data pointer to the first element of the appropriate DATA 
statement so that the data can be read again. The optional line number 
parameter allows you to specify a particular DATA statement to be reread; 
without it, RESTORE simply resets the pointer to the beginning of the first 
DATA statement in the program. In Chapter 4, I’ll use RESTORE in this way 
to help draw a pattern of ellipses. 
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DECISION-MAKING 

ST BASIC’s ability to make a decision will be vital to your writing useful 
programs. The computer must be able to choose among possible choices 
based on a certain outcome. The ST can decide whether a statement is true 
or false, if a number is greater than, less than, or equal to another, if one 
string matches another, and so on; based on the outcome of a decision, the 
ST can take the actions you instruct it to take. 


IF. . . THEN 

The most basic decision-making keyword in ST BASIC is IF, which simply 
tests whether something is true or false. When you use IF with different logi¬ 
cal operators, however, the IF statement is flexible enough to make many 
different decisions. Its format is 

IF condition THEN actionl [ELSE action2] 

In ordinary language, this statement means “if the first condition is met, take 
the first action; otherwise, take the second action 
Here’s a simple program that makes the ST a somewhat clumsy age- 
guesser: 

10 CLEARW 2:FULLW 2 
20 FOR AGE = 1 TO 100 

30 PRINT "Is your age ";AGE;"? Please answer YES or NO." 

40 INPUT ANSWERS 

50 IF ANSWERS = "YES" OR ANSWERS = "yes" OR ANSWERS = "Yes" 
THEN GOTO 70 
60 NEXT 

70 PRINT "YOUR AGE IS ";AGE 
RUN 

Is your age 1? Please answer YES or NO. 

NO 

Is your age 2? Please answer YES or NO. 

NO 

Is your age 3? Please answer YES or NO. 

YES 

YOUR AGE IS 3 

Line 40 accepts input from the keyboard; if ANSWERS is equal to yes, then 
the computer will go to line 70 where it will repeat the age of the user. If the 
condition is not true, the computer goes to the next line, which instructs it to 
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continue the loop with the NEXT statement. Notice that line 50 could also be: 

IF ANSWERS ="YES" THEN GOTO 70 ELSE NEXT 

I left out the ELSE to demonstrate how the computer skips to the next line if 
a condition is not met and there is no ELSE to give an alternative action. 

The condition that you are testing after the IF statement is simply a logical 
test. You can compare strings, numbers, or variable arrays, check to see 
whether a particular time has been reached, or check anything else that can 
be tested as true or false within the confines of the computer’s language. 
The logical operators you can use after IF are listed in Table 2.1. 

The next sample program will show how most of these functions work. 
Remember that I am purposely making the program crude to demonstrate 
the functions; many of these sample programs could be written in two or 
three lines instead of many lines. 

10 CLEARW 2:FULLW 2 

20 INPUT "Enter your first number ";FN 

30 INPUT "Enter your second number ";SN 
40 INPUT "What is your age ";AGE 

50 IF FN>SN THEN PRINT "Your first number is greater than your 
second number" ELSE IF FN<SN THEN PRINT "Your first number 
is less than your second number" ELSE PRINT "Your first number 
must be equal to your second number" 


Table 2.1: Logical oper¬ 
ators used after IF 


= Is the first operator equal to the second operator? 

> Is the first operator greater than the second operator? 

< Is the first operator less than the second operator? 

< > Is the first operator not equal to the second operator? 

= > Is the first operator greater than or equal to the second operator? 

< = Is the first operator less than or equal to the second operator? 

AND Are the first and the second conditions both met? 

OR Is either the first or the second condition met? 

EQV Are the first and the second conditions either BOTH true or BOTH 
false? 

NOT Reverses any logical function test. 
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60 IF FN = AGE AND SN=AGE PRINT "Your first number, second 
number, and age are all identical.'"GOTO 80 
70 IF FN = AGE OR SN=AGE PRINT "Either your first number or your 
second number is equal to your age." 

80 PRINT "That's all for now. I'm tired of making decisions." 

Decision-making is important to all programming, including graphics and 
sound. A useful program is almost always based on its ability to act on cer¬ 
tain conditions, and the simple IF... THEN ... ELSE structure is all you need 
to branch out to different parts of a program after a decision is reached. 


EDITING 

Even the best programmers make mistakes—usually a lot of them—while 
they are programming. When you make errors, it would be inefficient to 
retype all the troublesome lines. ST BASIC has a built-in editor that allows 
you to see a program on the screen and, with the cursor keys and function 
keys, add, delete, or change information within a program. 

To edit a program, type EDIT and press Return. If you want to go to a 
specific line number, you can follow the word EDIT with that line number. 
Your BASIC program will be displayed in the Edit window, and you can 
move around it using the arrow keys. Figure 2.4 shows the Edit window. To 


Figure 2.4: The Edit 
window 
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learn how the editing process works, type the following program (in the 
Command window, as usual) exactly as it is here, mistakes and all; you’ll 
correct it later with EDIT. 

5 REM Well want to get rid of this line 

10 PRINT 'This is a teest of the emrgency broadcasting system." 

30 REM We could really use a line 20 
40 PRINT "Press Return to end the program";A$ 

This program has several problems with it, so type EDIT to get to the Edit 
window. Try moving around the program with the cursor keys, then move 
back to the upper left corner, where you began. You use the function keys to 
correct this program, and their functions are listed in Table 2.2. 

Now go to line 5 and press the F4 key to delete the line. Line 5 will 
become skewed (it will look lighter than the rest), which indicates that it is 
deleted. To make line 5 disappear entirely, press the Up-arrow key to return 
to line 5 and press F4 again. 

Now you need to get rid of the extra e in teest; move the cursor so that it 
is on top of one of the e’s and press F2 to delete the character. Again, line 
10 will become skewed, which is simply an indication that you have changed 
something in it. Press Return to let the computer know you have finished 
editing that line; the line will look normal again after you press Return. 

The cursor should now be at the beginning of line 30; since you want to 
insert an extra line here, press F3, and lines 30 and 40 should each move 


Table 2.2: The function 
keys used for editing 


FI Insert a space where the cursor is currently located 

F2 Delete the character where the cursor is currently located 

F3 Insert a line where the cursor is currently located 

F4 Delete the line where the cursor is located 

F5 Move a page up in the program 

F6 Move a page down in the program 

F7 Load text from the disk 

F8 Save text to the disk 

F9 Clear the current text buffer (memory area) 

F10 Exit from the edit mode, saving the changes made 
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down a line. Type line 20: 

20 GOTO 40 

Now move the cursor down to line 40 so you can change the PRINT state¬ 
ment to INPUT Move the cursor over to the P in PRINT, and type the word 
INPUT directly You won’t have to insert or delete anything, because the 
word INPUT will simply overwrite PRINT Press Return, then press F10 to get 
out of the Edit window. 

The editing commands from the function keys and the menu bar can 
make changing your program easy. Experiment with the editing functions for 
a while longer to get used to the different ways you can change lines and 
characters. You’re certain to need good editing skills later when you start 
writing longer programs. 


DELETE 

Besides the editing window, there are several ST BASIC keywords that can 
help you clean up or change your program. One of these, DELETE, lets you 
remove certain lines from your program. There are several different ways 
you can use DELETE: 

DELETE number 

deletes one line number (example: DELETE 50). 

DELETE number-number 

deletes everything from one line number to the second line number 
(example: DELETE 60-170). 

DELETE number- 

deletes all the line numbers from the number specified to the end of the pro¬ 
gram (example: DELETE 230-). 

DELETE -number 

deletes everything up to and including the number specified (example: 
DELETE -200). 

The LIST command, incidentally, has the same format as the DELETE 
command and can use these same variations. The difference, of course, is 
that LIST displays the lines in the List window instead of deleting them. 






65 


FUNDAMENTALS OF BASIC 


STEP 

Another helpful command that might help you trace program bugs or 
problems is STEP. The format of this immediate command is simply: 

STEP 

When you enter STEP, the computer will begin running the program in mem¬ 
ory one line at a time. After each line runs, the computer will wait until you 
press Return before it goes to the next line. By seeing the results of each 
line, you can pinpoint areas that need to be fixed. 


FOLLOW 

FOLLOW is a somewhat similar keyword, since it traces the changes in 
selected variables during the course of a program: 

FOLLOW variable^variable, ...] 

As the program is running, the computer will display on the screen every 
chosen variable that changes, at the moment it changes. Therefore, you can 
watch as certain variables change values while the program is running. You 
will need to specify which variables you want to monitor, however, so list the 
variables (separated by commas) that you want FOLLOW to trace (such as 
FOLLOW B,XX). When you want this function turned off, type UNFOLLOW. 


REM and RENUM 

A couple of other ways to clean up programs include the REM and 
RENUM statements. REM tells the computer to ignore everything on the line 
after it encounters the REM. REM is short for remark, and you should use it 
whenever you want to make a note to yourself (or perhaps to a person who 
will be looking at your program) about what certain parts of the program do. 
You can substitute an apostrophe (’) for REM. Both of the following lines 
would be ignored by the computer, but readable by you when the computer 
lists the program: 

50 REM This part of the program computes the functions 
60 7 The functions are computed using the formulas in line 200 

RENUM renumbers the program in the way you specify. Often a program 
gets irregular line numbering as a programmer adds, deletes, and changes 
lines. RENUM can adjust the lines (and all the references to lines) to be 
more orderly, perhaps following the pattern 10, 20, 30, 40, and so on. The 
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format for this command is: 

RENUM new line , starting line number[, increment] 

The new line is what you want the first line of the renumbered program to 
be; the starting line number is where the computer should start renumbering 
the program; and the increment indicates what step the computer should use 
in numbering the lines. RENUM 50,100,20, therefore, would renumber all the 
lines from 100 to the end of the program so that the new line numbers 
started at 50 and proceeded in increments of 20 (70, 90, 110, and so on). 
Typing RENUM by itself will renumber the entire program, with 10 as the 
starting line number and subsequent line numbers in increments of 10. 


Other Editing Commands 

Here are brief descriptions of the other BASIC keywords that can help you 
find and eliminate program problems. 

ERL The ERL keyword acts as a variable of sorts, since the line number 
where the most recent error occurred is stored here. Therefore, if you have 
an error-trapping statement such as ON ERROR GOTO 500 at the beginning 
of a program, and some error causes the computer to go to line 500, you 
could issue the command PRINT ERL at that point to see where the error 
occurred. 

ERR Similarly, ERR records the most recent error code. A list of error 
messages and their codes appears in Appendix B. 

ERROR If you want to simulate an error in a program, type ERROR 
followed by the code of the error you wanted to create. By seeing what 
happens to the program when a certain error occurs, you might be able to 
make the program more reliable. 

END The END statement stops the program immediately and returns you 
to the Command window. You will often want to put a road block in the 
middle of your program so you can check the condition of variables and 
other important factors in the progress of the program. As you continue to 
debug, you can set up different END statements so you’ll have a chance to 
examine carefully what the program is doing. 

STOP Instead of halting the program completely, the STOP statement puts 
you in the break mode. In the break mode, you can check the status of 
variables, tel! the program to keep going with the CONT command, or go 
back to the normal mode by typing STOP and pressing Return. 
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RESUME If you do have an error-handling routine in a program, you can 
put RESUME at the end of the routine to instruct the computer where to go 
next. For instance, you might have RESUME 70, which tells the computer 
“now that the trouble is taken care of, go to line 70.” RESUME NEXT would 
continue the loop that it was executing, and RESUME would just send the 
program back to the place where it first ran into trouble. You'll find examples 
of error-handling routines throughout this book. 


ON YOUR WAY TO GOOD PROGRAMMING 

Programming isn’t a terribly easy task, but once you get past the basics, it 
can be a lot of fun. Make sure you understand the fundamentals presented 
in this chapter before going any further. Once you are well-grounded in this 
mundane but important material, you can explore more interesting, useful, 
and entertaining subjects in the chapters to come. 
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The foundation for practical programs consists of the math- and text- 
handling keywords in a language. ST BASIC has a wide variety of math and 
string instructions that let you figure mathematical expressions, manipulate 
strings, and display characters on the screen that cannot be produced with 
just the keyboard. In this chapter, I’m going to concentrate on these func¬ 
tions and statements and their uses. 


MATH COMMANDS, STATEMENTS, AND 
FUNCTIONS 

You’ve already learned from Chapter 2 what a numeric variable is; how¬ 
ever, there are several ST BASIC instructions that make these variables more 
versatile. Most of these keywords are functions, but some are statements or 
commands. 


Memory Management 

Recall that numeric variables (designated by such labels as YY, X3, TOTAL, 
SALES1987, and other combinations of letters and perhaps digits) represent 
numbers and also occupy some space in memory. The more variables you 
have—especially if you are working with large arrays—the more memory is 
occupied. Here are a few keywords that will help you manage your variables 
and memory better. 


SWAP 

The SWAP statement exchanges the values of two different variables: 
SWAP variablel, variable2 

Suppose you had a variable A that was equal to 40 and a variable B that 
was equal to 650. To assign the value of A to variable B and the value of B 
to variable A, you would type SWAP A,B. This sort of variable exchange is 
most often used for sorting numbers, and unlike the CLEAR command, 
SWAP (like ERASE) requires arguments to work. A command such as 
CLEAR can stand on its own. 


CLEAR 

The CLEAR command "wipes the slate clean” in the computer’s memory. 
All the variables, arrays, FOR . . . NEXT loop values, and data addresses are 
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cleared from memory. The program in memory will still be there after you 
type CLEAR, but everything else will be as if you had just entered ST BASIC 
and loaded the current program. 


ERASE 

If you want to be more specific about which arrays you want eliminated 
from memory you can type ERASE followed by the name of the array 
(or arrays): 

ERASE array name[,array name , . . . ] 

For instance, suppose you had the arrays G(x) and HH(x) in memory and 
wanted to get rid of them; you would type ERASE G,HH. This statement is 
sometimes preferable to CLEAR, since you may want to eliminate just one or 
two variables rather than everything in memory 


Size-Definition Instructions 

When writing a program, you’ll probably have a good idea how large 
or small each variable is going to get. The variable that indicates how many 
people are playing a game, for instance, would probably be only 3 or 4, but 
the variable for a complex math formula might hold an extremely large num¬ 
ber. To conserve memory, the computer can allocate a certain amount of mem¬ 
ory for each variable. Variables that hold large numbers will need to have a 
larger amount of memory than variables holding small numbers. The small 
numeric variables are often called integer variables, somewhat larger ones are 
called single-precision, and especially large variable types are called double¬ 
precision. An integer occupies two bytes of memory, a single-precision number 
four bytes, and a double-precision number eight bytes. Keep in mind that 
more precise numbers are “large" in the sense that they occupy a larger 
amount of memory. For example, even though the value 3.1415926 is much 
smaller than 1,000,000, the higher precision of the first number makes it larger 
than the second in the amount of memory it occupies. 

You can manage specific variables by defining how large you want them 
to be. For example, if you were going to use variables called UU, W, and 
XX that would only hold integers, you could save some memory by typing 
DEFINT UU-XX to let the computer know that the variables UU, VV, and XX 
should be defined as integers. Although you can follow variable names with 
symbols to specify their type (% for integer, ! for single-precision, and # for 
double-precision), using a definition function is much more convenient when 
you want to assign types to ranges of three or more variable names. Flere’s 
a complete list of the size definition statements. 









72 


UNDERSTANDING ATARI ST BASIC PROGRAMMING 


DEFINT 

DEFINT defines any range of variable names as integers: 

DEFINT letter-letter 

In ST BASIC, integers are whole numbers that can range from -32767 to 
32768 (for instance, 50.3 is not an integer, but 50 is). Follow DEFINT with a 
range of variables (telling the computer that everything from the first variable 
to the second variable should be integers). Note that a range can consist of 
as little as one variable. DEFINT X-Y would make X, Y, and all variables 
beginning with X or Y integer variables. Since all variables that begin with 
any of the letters in a specified range will be considered integer variables, if 
you typed, say, DEFINT H-K, the variable JJ1 would be an integer since 
the first letter of that variable name, J, is included in the range of defined 
integers. 


DEFSNG 

DEFSNG defines ranges of single-precision variables, which have six sig¬ 
nificant digits of accuracy. 

DEFSNG letter-letter 

Variables are automatically defined as single-precision, so you probably won’t 
need to use this function. If you do want to assign single-precision to vari¬ 
ables, type DEFSNG followed by the range. 


DEFDBL 

If you are going to be using very large or very precise numbers, you 
might want to give certain ranges of variables double-precision, about nine 
significant digits of accuracy. Type DEFDBL followed by the range of vari¬ 
ables you want to give double-precision: 

DEFDBL letter-letter 

This statement uses more memory than DEFSNG, but you can greatly 
increase the size and accuracy of the variables specified. 


DEFSTR 

String variables are usually followed by a dollar sign, and so RR$, BC$, 
and DL$ would all represent strings. If you want to represent strings without 
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having a dollar sign, you can use the DEFSTR statement: 

DEFSTR letter-letter 

DEFSTR declares all variables that begin with the specified letter to be string 
variables. For instance, if you typed DEFSTR A-C, then all variables begin¬ 
ning with A, B, or C could be string variables, and you could not use them 
as numeric variables: Alpha = 9 would be illegal. 


Number-Redefinition Functions 

Besides being able to conserve memory or reserve larger amounts of 
space for certain variables, you can change the characteristics of numbers 
or variables with the following functions: 


SIRS 

If you want to put a number into a string variable, use the STR$ function 
with the number as its argument: 

string variable = STR$(numeric expression) 

For example, if the variable YY held the number 47.2, and you typed 
A$=STR$(YY), the string variable A$ would equal 47.2. STR$ automatically 
makes the first character of this kind of variable a blank space if the number 
is positive and a negative sign if it is negative. Some products of STR$ might 
include the following: 


-50 

22.98 

-70 


You will find it useful to make numbers into strings when you want to format 
numbers on the screen in a certain way. 

~VAL -- 

The opposite of STR$ is the VAL function, which changes a string of digit 
characters into a number that can be stored in a numeric variable: 

numeric variable=VAL(string of digits) 

If a string is equal to just a number, that number will either be printed, stored 
in a string, or used in whatever way you specify. If H$ equaled 506, PRINT 









74 


UNDERSTANDING ATARI SI MSIC PROGRAMMING 


VAL(H$) would produce the number 506 in the Output window, and 
H=VAL(H$) would store the number 506 in the variable H. If the string con¬ 
tains more than just a number, VAL will extract the number in the string only if 
it is the first part of the string; PRINT VAL ("21 is my age") would result in the 
number 21 being printed in the Output window, and PRINT ("My age is 21") 
would produce 0 since the number isn’t the first part of the string. Using VAL 
with a string that has no number, of course, would also produce 0. 


ABS 

The absolute value function in math is simple: it eliminates the negative 
sign in a negative number and leaves positive numbers alone. Likewise, ST 
BASIC’s ABS function will return the positive value of the number that it 
is given: 

numeric variable = ABS(numeric expression) 

Here are some examples: 

PRINT ABS (50) 

50 

PRINT ABS (-60) 

60 

PRINT ABS (0) 

0 


SGN 

Another function that deals with positive and negative signs is SGN, which 
determines whether a number or variable is positive, negative, or zero: 

numeric variable = SGN(numeric expression) 

Note that SGN is followed by a number or variable in parentheses, and it will 
return either 1 (indicating positive), -1 (indicating negative), or 0 (which 
means that the number or variable equals 0). PRINT SGN(-50), SGN(1), 
SGN(0), therefore, would result in -1, 1, and 0 in the Output window. 


FIX and INT 

The FIX function eliminates the decimal portion of a number: 
numeric variable = FI X(numeric expression) 
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PRINT FIX (50.5) would result in 50, and X=FIX (4.9999) would make X 
equal to 4. 

The I NT function does exactly the same thing using the same format: 
numeric variable = \NT(numeric expression) 

PRINT INT (-40.40923) would make -40 appear in the Output window. 


MOD - 

When you are dividing numbers, there will often be a remainder: 70/6, for 
instance, results in 11.6666666. The MOD function: 

numeric variable = number MOD divisor 

can help you find the remainder of a division operation so you can avoid 
long decimal numbers. PRINT 70 MOD 6 would tell you the remainder of the 
70/6 operation, which is 4; 70 divided by 6, therefore, equals 11 with a 
remainder of 4. 


CINT 

The CINT function: 

integer variable = CINT {numeric expression) 

is different from INT since it rounds off the integer part of a number rather 
than eliminating it. If there is a fractional part after the decimal point less than 
0.5, the CINT function will eliminate everything after the decimal point and 
leave the whole number as it is; however, if the decimal part is greater than 
0.5, CINT will round up to the next highest whole number. PRINT CINT (4.49) 
would return a value of 4, and PRINT CINT (60.7) would return 61. 


Number-Conversion Functions 

Two other functions, HEX$ and OCT$, convert numbers from one base to 
another. Their formats are 

numeric variable = HEX$(numeric expression) 
numeric variable = OCT$(numeric expression) 

As you probably know, our system for counting is base 10 (which uses the 
digits 0-9). The hexadecimal (base-16) system, however, uses the digits 0-9 
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and the letters A-F. Some hexadecimal numbers might be AFFF, 9E, and 
1000. To convert a decimal number to a hexadecimal string, use the HEX$ 
function with the numeric value following it in parentheses. Here are a couple 
of examples: 

PRINT HEX$(254) 

FE 

PRINT HEX$(65535) 

FFFF 

Hexadecimal numbers are important in advanced programming, especially 
when you get involved with assembly language. 

Octal numbers (base-8) are also sometimes important. You can convert 
decimal numbers to octal in the same format as with the HEX$ command; 
for octal conversion, though, use the function OCT$ followed by the number 
in parentheses. 


Math Functions 

The math functions discussed so far manipulate variables in some way. ST 
BASIC also has a lot of math functions that work directly with numeric 
expressions, and you can use them as building blocks in more complicated 
equations. The following functions can work by themselves or with each 
other. 


SQR 

The SQR function will give you the square root of a number or variable: 
numeric variable = SQR(numeric expression) 

PRINT SQR (16), for instance, would yield the number 4. 


EXP 

EXP, the exponential function, raises the number you specify to the power 
of the mathematical constant e (about 2.71828): 


numeric variable = EXP(numeric expression) 
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LOG 

The LOG function will give you the natural logarithm of a number: 
numeric variable = LOG(numeric expression) 

This function is the opposite of EXP. 

LOG/O 

To find the base-10 logarithm of a number or variable, use LOGIO: 
numeric variable = LOG10(numeric expression) 


SIN 

ST BASIC has a lot of trigonometric functions, and SIN is the first and 
most basic of them. SIN returns the sine of the angle you specify, and its 
format is 

numeric variable = S\N(numeric expression) 

The sine of an angle is equal to the length of the opposite side divided by 
the length of the hypotenuse of a triangle, and the angle you give as the 
numeric expression argument must be in radians. If you know only 
the angle, divide it by 57.29578 (180 /ji) to get the figure for radians; once 
you have the figure, enter it in the parentheses following the SIN function. 


COS 

The COS function returns the cosine of the angle you specify in radians: 
numeric variable = COS (numeric expression) 

The cosine of an angle is the length of the adjacent side divided by the 
length of the hypotenuse. 


TAN - 

TAN gives you the tangent of the angle you specify (as usual, the angle 
you give must be in radians): 

numeric variable = TAN(numeric expression) 

The tangent is equal to the sine divided by the cosine, or the length of the 
opposite side divided by the length of the adjacent side. 
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ATN 

ATN returns the arctangent of the angle you specify: 
numeric variable = fiJN(numeric expression) 

The arctangent is the inverse of the tangent. 


Defining Special Functions 

If you’re going to be using a particular operation a lot that is not already 
defined as an ST BASIC function, you might find it time-saving to define that 
function with the DEF FN statement. DEF FN sets up a definition and assigns 
it a name. If you were using the formula X = (A + B*5.27*B*B) a lot, you 
could type DEF FNMINE (A,B) = (A +B*5.27*B*B). After you entered that 
function definition, you could find the result of the formula for any two num¬ 
bers by typing PRINT FNMINE (A,B), where A and B are the two numbers— 
PRINT FNMINE (5,4), for instance, would result in 342.28. The format for 
DEF FN is 

DEF FNFUNCTION NAME (variable[,variable, . . .]) = expression 

The FUNCTION NAME (in all capital letters) is the name you want to use with 
the function, the variables are the numeric variables involved in the function, 
and the expression is the formula you want to define. Whenever you want to 
use the function, type FN followed (with no spaces) by the variable name 
and then the variables you need to use in parentheses. 

In the next example, I define a function CUB, to find the cube of any num¬ 
ber. The statement DEF FNCUB(N) = (N*N*N) in line 20 tells the computer 
that CUB should take any number specified and multiply it by itself three 
times; when you give the computer a number, it will find the cube just by 
using the FNCUB command. 

5 REM Cube program 
10 FULLW 2: CLEARW 2 
20 DEF FNCUB(N) = (N*N*N) 

30 INPUT "Enter number";N 

40 PRINT "The cube is";FNCUB(N) 

50 GOTO 30 

RND and RANDOMIZE 

Two final keywords related to numbers are RND and RANDOMIZE. The 
RND function, which you’ll be seeing a lot in the chapters on graphics and 










79 


WORDS AND NUMBERS 


sounds (although random numbers can be used in any type of program), 
generates a random number between 0 and 1 exclusive—that is, a fractional 
number between 0 and 1, but not including 0 or 1. Typing PRINT RND 
might result in 0.23432, 0.78564, or 0.50232. Random fractional numbers 
aren t usually useful, however (for instance, when you’re trying to create ran¬ 
dom sounds and need large numbers). Therefore, here’s a simple formula to 
get random numbers between 1 and the number you specify: 

X = INT(numberxRND)+1 

The number you specify will be multiplied by a random number, the decimal 
portion will be removed, and 1 will be added to round up the random num¬ 
ber. Therefore, if you wanted a random number between 1 and 400, you 
would type X=INT(400*RND)+1. The value of randomly generated numbers 
will become more apparent when you begin writing programs that call for 
unpredictability in Chapter 4. 

The RANDOMIZE statement serves a complementary purpose to that of 
RND, since it reseeds the computer's random-number generator. The num¬ 
bers produced by the computer are unpredictable enough, but they aren’t 
truly random; by using RANDOMIZE, you place another seed number in the 
random-number generator to make the results of the RND function even 
more unpredictable. RANDOMIZE isn't terribly important, but you can use it 
if you want to provide as much true randomness to the numbers generated 
as is possible. 


THE ASCII CHARACTER SET 

To enable different products to work together, there are standards to which 
almost all computer makers adhere. One of these is called the ASCII (Ameri¬ 
can Standard Code for Information Interchange) character set, which is a 
system of 256 numbers that correspond to 256 different characters. The 
ASCII character sets on different computers are somewhat different since the 
graphics and other functions of computers are not alike, but many ASCII 
character codes (most importantly, those involving letters, numbers, and com¬ 
mon symbols) are exactly alike. 

The ASCII system is simple enough: the numbers 0 through 255 each cor¬ 
respond to a certain character. The ASCII code 65 decimal represents the 
capital letter A, and the ASCII code 32 decimal represents a blank space 
(“ ”). In fact, the ASCII code 65 decimal represents the letter A whether you 
check it on the Atari, Amiga, Commodore 64, TRS-80, Apple, IBM PC, or 
another computer. The purpose of this character set is mainly to allow com¬ 
puters to communicate with one another without having to translate. 
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ASC 

One of the two functions that deals directly with the ASCII set is ASC: 
integer variable = ASC(string expression) 

By using ASC, you can find out the ASCII code of any string expression. 
Therefore, 

PRINT ASC ("C") 

would return the number 67, since the ASCII code for the capital letter C is 
67 decimal; if you typed 


H = ASC ("E") 


the number 69 would be stored in the variable H. The following program lets 
you enter a character so the computer can find the character's ASCII value: 

5 REM Find ASCII value 

10 FULLW 2: CLEARW 2 

20 INPUT "Enter character";A$ 

30 PRINT "The ASCII code for" 

40 PRINT A$;" is ";ASC (A$) 

50 GOTO 20 

If the string expression is more than one character long, the computer will 
return the ASCII value of just the first character. 


CHR$ 

The reverse of the ASC function is CHR$, which will take an ASCII code 
(numeric expression) and display its corresponding character (string variable): 

string variable = CHR$(numeric expression) 

Just as PRINT ASC ("A") would return a value of 65, PRINT CHR$(65) would 
display the capital letter A on the screen. Remember that the argument must 
be between 0 and 255. Also, the ASCII character set contains much more 
than just letters, numbers, and symbols; some interesting graphics charac¬ 
ters, a beep, and other useful functions are contained within the entire set, 
as shown in Appendix D. Here is a short program that will display the whole 
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ASCII set on the screen: 

5 REM Display ASCII character set 
10 FULLW 2: CLEARW 2 
20 FOR A = 0 TO 15 
30 FOR B = 1 TO 15 
40 PRINT CHR$(A*16 + B);" 

50 NEXT: PRINT: NEXT 


Formatting Functions 

When you are displaying text on the screen, you will sometimes want to 
format it in some special way. For example, if you printed five columns of fig¬ 
ures, you would want to make sure that each column was aligned so that 
the screen looked orderly. ST BASIC has several functions that let you print 
characters or strings in certain places on the screen so you can format the 
text properly. 


TAB 

The first of these functions, TAB, lets you print anything a specified number 
of spaces to the right of the left edge of the screen: 

PRINT TAB(fafc) position)["string"] 

PRINT TAB(5) "Hello", for instance, would print the word Hello five spaces to 
the right. The computer’s TAB settings, like a typewriter’s, are absolute loca¬ 
tions; that is, TAB (10) is always located ten spaces to the right of the left 
side of the screen. Typing 

PRINT TAB(20) "Testing" TAB (20) "Testing" 

would result in: 

Testing 

Testing 

Because TAB (20) is a definite location, and because the computer isn’t 
going to use the same spot twice, it jumps to the next line so that it can suc¬ 
cessfully reach the TAB (20) location and print the second Testing. 
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SPC 

SPC, on the other hand, deals with relative, rather than absolute, locations. 
That is, it simply prints a certain number of spaces so that the next item 
printed will be a certain position to the right of the last item printed: 

PRINT SPC{numeric expression) 

In the example for TAB above, the two Testing words that were printed were 
on different lines, since TAB had to skip to the next line to get to a TAB stop 
20 that was not occupied. SPC, however, just prints the number of spaces 
you specify. A similar program line 

PRINT SPC(10) “Testing" SPC (10) 'Testing" 

would put the following in the Output window: 

Testing Testing 

The computer has no need to skip to the next line; it moves ten spaces to 
the right, prints Testing, moves another ten spaces, then prints the second 
Testing. 


SPACES 

Another keyword, SPACES, can serve a similar function; the above result 
could be achieved by typing 

PRINT SPACES (10) "Testing" SPACES (10) "Testing" 

The difference is that you can also use SPACES to create or add to a string. 
By typing something like 

AS = "This is a" + SPACE$(15) + "long string." 

AS would be equal to: 

This is a long string. 

The SPACES function can serve as part of a string or as a string in itself. Its 
format is 

string variable = SPACE$(numer/c expression) 
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POS(Oj 

If you want to find out the current cursor position, you can use the POS(O) 
function; the (0) is just a dummy, which means that it has no significance to the 
keyword, but it is still important that you include it. POS is most useful in a pro¬ 
gram when you are in the process of formatting and need to check the cur¬ 
rent cursor location to position the next piece of data correctly. Its format is 

integer value = POS(O) 


GOTOXY 

A more direct method of positioning the cursor is the GOTOXY statement: 
GOTOXY column,row 

GOTOXY sends the cursor to a specific part of the screen specified by the X 
and Y values that follow it. The X value ( column) is the horizontal position of 
the cursor on the screen, and the Y value (row) is the vertical position. 
GOTOXY 5,7 would put the cursor at the position 5 spaces to the right and 7 
lines down from the upper left corner of the screen. 


Program Examples 

The next program uses the GOTOXY and CHR$ functions to print 16 Atari 
logos in a diagonal path across the screen, as shown in Figure 3.1. 

5 REM Atari logos using GOTOXY and CHR$ 

10 FULLW 2: CLEARW 2 
20 FOR P = 1 TO 16 
30 GOTOXY P*2,P 
40 PRINT CHR$(14);CHR$(15); 

50 NEXT 
60 GOTO 60 

The second program using GOTOXY and CHR$ is a little more interesting. 
For some reason, the programmers at Atari who decided upon the character 
set for the ST made four characters (codes 28 through 31) that, when used 
together, draw a face of a man on the screen. This smiling, pipe-smoking 
man is, I believe, a classic figure that pokes fun at the “organization family 
man" of the 1950s; his name is Bob, and he is the object of a humorous 
cult, “the Church of the Sub-Genius.” The following program prints Bob’s full 
face in random locations on the screen, as shown in Figure 3.2. 
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5 REM Church of the Sub-Genius 
10 FULLW 2: CLEARW 2: GOTOXY 3,0 
20 PRINT "Attack of the killer Bobs!" 

30 FOR D = 1 TO 900: NEXT: CLEARW 2 
40 X = INT(RND*17)*2: Y = INT(RND*9)*2 


Figure 3.1: Atari logos 
using GOTOXY and 
CHR$ 
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Figure 3.2: Church of 
the Sub-Genius 
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50 GOTOXY X,Y 
60 PRINT CHR$(28) + CHR$(29); 
70 GOTOXY X,Y + 1 
80 PRINT CHR$(30) + CHR$(31); 
90 GOTO 40 


Notice the GOTOXY command on line 70 which uses a Y-value that is higher 
(by 1) than in the previous GOTOXY command; this puts the lower portion of 
Bob’s face on the line below the upper portion. 


STRINGS 

The next program also uses two lines; the top line displays 30 identical 
digits and counts from 0 to 9, and the lower line counts in the opposite 
direction, from 9 to 0. These digits are ASCII characters that look like the 
numbers from a calculator display, and a new command, STRINGS, makes 
printing the 30 identical characters easy. The format for this command is 

STRI NG$(number, character) 

where number is the number of characters you want in the string and char¬ 
acter is either the ASCII code of a character, or the character itself in quotes. 

5 REM Digits 
10 FULLW 2: CLEARW 2 
20 FOR D = 16 TO 25 
30 GOTOXY 0,0 
40 PRINT STRING$(30,D) 

50 PRINT STRING$(30,41 - D) 

60 NEXT 
70 GOTO 20 


WORKING WITH STRINGS 

The PRINT statement, as you’ve already seen in Chapter 2, is one of the 
most frequently used keywords in ST BASIC. A modification of PRINT makes 
it even more versatile: PRINT USING. This keyword not only prints numbers 
or variables on the screen, but it does so in the format you specify. This is 
helpful for scientific data, dollar figures, and other numbers that have to be 
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printed in some special way. PRINT USING is used exactly like PRINT, and 
its syntax is 

PRINT USING string;variable or number\, variable or number, . . .] 

The string tells PRINT USING how to format the variables or numbers. The 
numbers (or variables) are what you want to print. For example, $$### is a 
format string that tells the computer to print numbers preceded by dollar 
signs; if you wanted to print the variable A, which was equal to 354, here is 
the line you would type and the resulting output: 

PRINT USING "$$###"; A 
$354 


Format Strings 

There are several different types of format strings you can use, each of 
which can be combined with others. Here is a list of different format strings 
and their functions. 


Number Sign 

The number sign (#) specifies how many digits in a number will be printed. 
Use as many number signs as you think will be needed to accommodate all 
the digits in the number you want to print. If you anticipate five-digit num¬ 
bers, for example, you’ll want to use #####. 


Decimal Sign 

Use the decimal sign (.), or period, between two number signs in the for¬ 
mat string if you want to set a specific place for the decimal sign. For 
example, 

PRINT USING // ###.## // 

would tell the computer to print three digits preceding the decimal sign and 
two digits following the decimal sign. If the number was 54.6743, the com¬ 
puter would print 54.67 (cutting off the extra two digits). 


Dollar Sign 

For dollar figures, precede the number signs with two dollar signs ($$). 
The dollar signs in the format string will make the computer print a dollar 
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sign in front of any numbers you display with PRINT USING. Therefore, 
PRINT USING "$$###.##";53.20 
would put $53.20 in the Output window. 


Positive Sign 

If you want a positive or negative sign to be displayed after a number to 
indicate whether it is positive or negative, the first character in the format 
string should be a positive sign ( + ). 


Asterisks 

When you use PRINT USING with the number signs, the computer auto¬ 
matically puts spaces before each number so that the right edge of all the 
numbers lines up properly. If you would rather have asterisks (**) displayed 
in front of each number instead of a space, put two asterisks in the format 
string. The numbers will still line up properly, but numbers such as 50.23 and 
1250.65 will be displayed thus: 

* * * *50.23* *1250.65 


Underscore Character 

If there is a special character that you want printed with the number, such 
as the at sign (@), type an underscore (_) in the format string followed by 
the character. 


Four Exponent Symbols 

Including four exponent symbols ( AAAA ) in your format string will make 
the computer print numbers in scientific notation. The number 4320.5 would 
be displayed as 4.32E + 03. 


Exclamation Mark 

For strings, the exclamation mark (!) in the format string will make the pro¬ 
gram print only the first character of the string printed. 
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Ampersand 

The ampersand (&) specifies a variable-length string. (Note that the whole 
string can be printed just by using the PRINT statement without any format 
string.) 


Two Backslashes 

Use two backslashes (\ \) in your format string when you want to print a 
certain number of characters of a string plus two. A backslash, three (or n) 
spaces, and another backslash tells the computer to print the first five (or 
n + 2) characters of the string you are printing with PRINT USING. For 
instance, if A$ was equal to MISSISSIPPI, and you typed 

PRINT USING "\ \"; A$ 

the computer would display MISS in the Output window; the two backslashes 
and two blank spaces told the computer to print the first four characters of 
the string. 


Excerpting Strings 

Some functions are used just for excerpting parts of strings. 


RIGHTS 

RIGHTS, followed by the name of the parent string and number of char¬ 
acters you want to extract in parentheses, extracts a certain number of 
characters from the right end of a parent string: 

string = RIGHT$(parenf string, number of characters) 

RIGHTS does not alter the parent string in any way, but you can use the 
new string in any way you wish; you can print it, store it in another string, 
find its ASCII code, and so on. If, for instance, you wanted to work with the 
three rightmost characters of a string called GGS (which equaled “My name 
is Jim”), you would type 

PRINT RIGHT$(GG$,3) 

to get the resulting Jim in the Output window. 

The following program accepts city, state, and ZIP code information from 
the keyboard and, by extracting the five rightmost digits, can display the ZIP 
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code by itself: 

5 REM Print ZIP code 

10 FULLW 2: CLEARW 2 

20 LINE INPUT "Enter City, State, ZIP:";ADR$ 

30 PRINT "Your ZIP code is";RIGHT$(ADR$,5) 

40 GOTO 20 
RUN 

Enter City, State, ZIP: Santa Clara, CA 95050 
Your ZIP code is 95050 
Enter City, State, ZIP: 

LEFfl 

LEFTS works exactly like RIGHTS, except that it uses the leftmost charac¬ 
ters in a string: 

string = LEFT$(parent string, number of characters) 

From the GGS string “My name is Sam”, PRINT LEFT$(GG$,2) would result 
in My in the Output window. 


LEN 

Another string function, LEN, returns the number of characters in the string 
argument: 

integer =LEN(string expression) 

If AS was equal to “I am a string”, PRINT LEN (A$) would return a value of 
13, and PRINT LEN("Test”) would return 4. LEN counts all the characters in 
a string argument, including spaces and special characters. 

The next program uses both LEFTS and LEN; after you type in a string, 
the program uses a FOR . . . NEXT loop to count backward from the length 
of the string to 1. For each pass of the loop, the computer prints the number 
of characters on the left side of the string equal to the current value in the 
loop counter. This makes an interesting string triangle, since whatever string 
you enter will shrink one character in size and be displayed on the next line 
for each pass of the loop. The string eventually shrinks to its last character, 
which is the last thing displayed before the program ends, as shown in the 
sample run. 


5 REM The disappearing string 
10 FULLW 2: CLEARW 2 
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20 INPUT "Enter a string";ST$ 

30 FOR I = LEN (ST$) TO 1 STEP -1 
40 PRINT LEFT$(ST$,I) 

50 NEXT 
60 GOTO 60 
RUN 

Enter a string? Testing 

Testing 

Testin 

Testi 

Test 

Tes 

Te 

T 


M/DJ 

A function somewhat similar to but more versatile than RIGHTS and LEFTS 
is MIDS. MIDS can be used in two different ways: 

string variable = WD$(string,starting point,length) 

MI D$(string, starting point,length) = string expression 

The first method extracts part of a string beginning at a certain point in the 
string —starting point—and takes out a certain number of characters— length. 
Therefore, if you wanted to take five characters out of H$ starting at the sixth 
character of H$ and store this new substring in Y$, you would type: 

Y$ = MID$(H$,6,5) 


You can also replace part of a string with the MIDS function. For example, 
to change R$ so that its third, fourth, and fifth characters are equal to “IOIT, 
type 

MID$(R$,3,3) = "IOU" 

The next program uses the second MIDS function. After you enter the 
word that the computer requests, it is included in a string. After the string is 
printed, the portion of the string with your word in it is replaced by the word 
gone, as shown in the sample run. Try the program to see how it works, and 
notice how the LEN function is used in line 30 to make sure that the string 
entered is four characters long. 
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5 REM Using MID$ to extract or replace parts of a string 
10 FULLW 2: CLEARW 2 

20 INPUT "Enter a four-letter word";WRD$ 

30 IF LEN(WRD$)< >4 THEN GOTO 20 

40 TXT$ = "The four-letter word is " + WRD$ + ", which"+ CHR$(10) + 
"isn't a surprise." 

50 PRINT TXT$ 

60 MID$(TXT$,25,4) = "gone" 

70 PRINT TXT$ 

80 GOTO 80 

RUN 

Enter a four-letter word? Yowl 
The four-letter word is Yowl, which 
isn't a surprise. 

The four-letter word is gone, which 
isn't a surprise. 

1NSTR — 

The INSTR function can often be used with MID$, since its purpose is to 
find where a section of a string is located. The format for INSTR is 

INSTR ([starting character,]string being searched,string to search for) 

If you wanted to search for the string piece got in the variable SNT$ and 
start the search at the fourth character of the string, you would type INSTR 
(4,SNT$,“got"). How you use the value returned by INSTR is up to you; you 
could print it, store it in a variable, or do anything else with it. The important 
thing is that the value returned represents the character position in the string 
where the string that you searched for begins. In the previous example, if 
SNT$ equaled "I've got a car”, the value returned would be 6 since “got" 
begins at the sixth character position of the string. You don’t have to specify 
a starting character when using INSTR; if you leave it out, the computer will 
search the whole string for the string piece you specify; and if the piece is 
not found, the value returned is 0. 

The next program uses INSTR to find out what city a person lives in. After 
you enter the city, state, and ZIP code, the computer finds out where the 
string piece CA is (assuming everyone using this program enters a California 
address). Once the computer finds out that information, it can extract the city 
name from the string and display it. 

5 REM Finding city name 

10 FULLW 2: CLEARW 2 

20 LINE INPUT "Enter City, State, ZIP";ADDR$ 
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30 X = INSTR(ADDR$,"CA") 

40 CITY$ = LEFT$(ADDR$,X - 2) 
50 PRINT "The city is ";CITY$ 
60 GOTO 20 


COLORFUL WORDING 

The keyword COLOR will be covered in great detail in the next chapter, 
but one of its functions is of interest in the context of text handling. You can 
specify a color in which subsequent text should be printed. Follow COLOR 
with one of the numbers listed in Table 4.1 (assuming you are in the 
medium-resolution mode and have a color monitor) to get text to print in 
the corresponding color. (Note: These are the default colors. They will be dif¬ 
ferent if you have redefined the colors from the Control Panel.) The next pro¬ 
gram prints the word Colorful in 16 different colors. One of the words won't 
appear because the color used will match the background color; however, 
most of the words will appear and will be in a diagonal arrangement. Run 
the program to see the effect. 

5 REM Colorful words 

10 FULLW 2: CLEARW 2 

20 FOR 1=0 TO 15 

30 COLOR I: PRINT TAB(I*2) "Colorful!" 

40 NEXT 

The next sample program uses the GOTOXY command to print single 
asterisks (*) in random locations around the screen using random colors. 
You’ll be seeing a lot more of the RND function in sample graphics 
programs. 

5 REM Printing asterisks in random locations 
10 FULLW 2: CLEARW 2 
20 GOTOXY INT (RND*34),INT(RND*17) 

30 COLOR INT (RND* 15) 

40 PRINT "*";: GOTO 20 

Here's one last fun sample program. This one brings the Bob convention 
back to the screen. Unfortunately, these Bobs aren't feeling very well, and as a 
result their faces keep changing color (as you’ll see when you run the program). 

5 REM Sickly Bobs 

10 FULLW 2: CLEARW 2 

20 FOR C = 1 TO 15: R = 3*INT(RND*3): GOTOXY 10 + R.5 
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30 PRINT CHR$(28);CHR$(29) 

40 GOTOXY 10 + R,6: PRINT CHR$(30);CHR$(31) 
50 COLOR C: NEXT 
60 GOTO 20 


SUMMARY 

Text and math functions aren’t the most exciting ways to use a powerful 
computer like the SI but they are important. Even though a command that 
performs some basic mathematical function isn't as impressive as a cube or 
three-dimensional landscape being drawn on the screen, you can’t do more 
interesting things without first knowing the root commands. If you understand 
what I’ve covered in this chapter, it’s time to move on to something more fun 
and even more useful: the graphics of the Atari ST. 
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One of the most impressive features of the ST computer is its graphics 
capabilities. Graphics are the lines, boxes, circles, and other pictures that the 
computer can draw on its screen. Early personal computers, such as 
the TRS-80 Model 1, had black-and-white graphics that were produced by 
using drawing points—blocks called pixels— that were relatively large, and so 
any pictures drawn on the screen looked crude and inaccurate. In short, 
something like a circle didn’t look like a circle. 

Newer computers, including the Atari ST, have high-resolution graphics. 
The pixels are numerous enough to make your pictures finely detailed. More¬ 
over, the Atari can produce as many as 512 different colors, making the 
computer’s graphics even more versatile. 

Nearly every Atari BASIC keyword for graphics is based on the X,Y- 
coordinate system. Even if your geometry is somewhat rusty, creating graph¬ 
ics with the ST is easy using this method. You can address any pixel on the 
screen by using just two numbers—the X-coordinate (showing where 
the pixel is horizontally) and the Y-coordinate (indicating its vertical position). 
A pixel at the extreme left edge of the screen has an X-coordinate of 0, 
since the X-axis starts at 0 on the left and ends at either 303, 607, or 615 on 
the right (more on these differences shortly). The Y-axis, on the other hand, 
starts at 0 at the top of the screen and ends at either 166 or 344 on the bot¬ 
tom. By using both coordinates (X,Y), you can pinpoint any graphics pixel, 
as shown in Figure 4.1. 

Pixels can be either on or off. By having many pixels on, you can create 
lines, boxes, circles, three-dimensional shapes, pictures, graphics, and other 
objects. If you wanted to turn on the pixel located in the upper left corner of 


Figure 4.1: Using X, Y- 
coordinates to pinpoint 
a pixel 
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the screen, you would specify pixel (0,0) in your graphics command. In the 
low-resolution mode, the pixel at the lower right corner of the graphics 
screen is at location (303,166). At the center of the screen is pixel location 
(151,83). 

There is no Atari ST BASIC instruction that directly turns one pixel on or 
off, however. Instead, you use these graphic point locations to specify where 
a particular shape should be located. For instance, to draw a line, you tell 
the computer to draw that line from one point to another point, as shown in 
Figure 4.2. For a circle, you indicate where the center of the circle is located 
and what its radius (measured in pixels) is. 


RESOLUTIONS 

As mentioned in Chapter 1, the Set Preferences option in the GEM 
Desktop’s menu bar lets you specify whether you want high resolution (for 
monochrome monitors) or medium or low resolution (for color monitors). If 
you’re using a color monitor, you’re free to use either medium or low resolu¬ 
tion when writing your own graphics programs. Medium resolution has twice 
as many X-coordinate pixels (in other words, you could turn on pixels with 
X-coordinates as high as 607), and you can only use four colors on the 
screen at once. With low resolution, you don’t have quite as much detail, but 
you have the flexibility of 16 different colors from which to choose. With the 
high-resolution monochrome display, of course, you can have highly detailed 
graphics (615 by 344 resolution), but only one “color”: black and white. 


Figure 4.2: Drawing a 
line 
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In this book, I’ll consistently use the low-resolution mode (use Set Prefer¬ 
ences to switch to low resolution, so you can follow the examples). The qual¬ 
ity of low-resolution graphics is still good; also, the availability of 16 colors 
makes the graphics a lot more interesting (although all the illustrations in this 
book are printed in black and white). 

One final note, before discussing details about the ST’s graphics, is that 
some of these programs might seem a little silly at first, but the purpose of 
every one of them is to teach you some specific facet of ST BASIC graphics 
commands. Some of them will make interesting patterns on the screen, cre¬ 
ate random colors, or shoot lines randomly from one point to another, but all 
of them will contribute to your knowledge of ST BASIC; and since you are 
learning by experience, you will quickly become proficient enough at these 
concepts to write your own (perhaps more advanced) programs. 


DRAWING LINES 

On many personal computers, the most fundamental graphics instruction 
draws a point on the screen. In ST BASIC, the simplest statement available is 
LINEF, which draws a straight line from one pixel point to another. By using 
several LINEF statements, you can create more complex objects, such as 
boxes and cubes. (Incidentally, if you do want to turn on just one pixel, you 
can use LINEF to draw a “line” from one point to the same point.) 

The format for LINEF is 

LINEF XI,Y1 ,X2,Y2 

There are no parentheses or other special characters to remember here; 
simply type LINEF and follow it with the pixel coordinates where the line 
should begin (XI,Y1) and the pixel coordinates where it should end (X2,Y2). 
For instance, to draw a line from (20,30) to (60,43), type LINEF 20,30,60,43. 

The first sample program draws a continuous pattern of random lines all 
over the screen. Each line starts where the last one ended, and the Atari 
remembers the last coordinate used by storing the old X- and Y-coordinates 
in the variables OX and OY. Each line is also a random color, and the screen 
is soon filled with dozens of colorful lines; when you want the program to 
stop, press Control-C. 

5 REM Drawing a continuous pattern with random lines 
10 FULLW 2: CLEARW 2 
20 X = RND*300: Y = RND*150 
30 LINEF OX,OY,X,Y 
40 OX = X: OY = Y 
50 COLOR 1,1 ,RND*15 
60 GOTO 20 
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When you use LINEF, you will usually want a lot more control over where 
the lines are drawn. READ . . . DATA statements, FOR . . . NEXT loops, and 
INPUT statements can all contribute to specifying where lines should go to 
create a particular pattern. The next program, for instance, uses two FOR . . . 
NEXT loops to create an interesting pattern with changing X and Y values: 

5 REM Using two FOR . . . NEXT loops to create diagonal patterns 
10 FULLW 2: CLEARW 2 
20 FOR X = 0 TO 300 STEP 20 

30 FOR Y = 0 TO 150 STEP 10 

40 LINEF 0,0,X,Y 

50 NEXT: COLOR 1,1 ,X/20: NEXT 

To create horizontal and vertical (rather than diagonal) patterns, you need 
to separate rather than nest your FOR . . . NEXT loops. Let’s assume you 
wanted to make a checkerboard pattern to create a small line graph. You 
would first need to draw several horizontal lines, evenly spaced and properly 
lined up at the edges. You would then draw the same number of vertical 
lines so that they lined up with the horizontal lines to make the squares of 
the graph. The FOR . . . NEXT loop is perfect for this task, since it not only 
counts off the lines for you, but it can also position them by using its counter 
variable as the X- (or Y-) coordinate in the LINEF statement. First, clear the 
screen and set up the first loop to draw the vertical lines: 

5 REM Using FOR . . . NEXT to create checkerboard pattern 
10 FULLW 2: CLEARW 2: COLOR 1,1,1 
20 FOR X = 0 TO 200 STEP 10 
30 LINEF X,0,X,150: NEXT 

The X variable in the LINEF statement changes as a result of the FOR . . . 
NEXT loop, and the two Y-coordinates (0 and 150) are constant. There is no 
need for the Y values to change, since you have a definite top and bottom 
limit for each of the vertical lines. On the other hand, the X value has to 
change, to space the vertical lines 10 pixels apart on the X-axis. Now that 
the vertical lines are drawn, the rest of the program can draw the horizontal 
lines: 

40 FOR Y = 0 TO 150 STEP 10 
50 LINEF 0,Y,200,Y: NEXT 

60 GOTO 60 

The GOTO 60 instruction in line 60 "freezes” the graphics so that you’ll 
have a chance to look at them without the Command window appearing on 
the screen again; if you want to get out of this infinite loop, press Control-C. 
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You can take this application a step further and create a random line 
graph on the “graph paper” you’ve created. The first part of the new pro¬ 
gram is the same as the one above: 

5 REM Creating a random line graph 
10 FULLW 2: CLEARW 2: COLOR 1,1,1 
20 FOR X = 0 TO 200 STEP 10 
30 LINEF X,0,X,150: NEXT 
40 FOR Y = 0 TO 150 STEP 10 
50 LINEF 0,Y,200,Y: NEXT 

Next, draw a line graph within the perimeters of the graph area on the 
screen. Because the graph would move across the X-axis and have random 
Y (vertical) values, the FOR . . . NEXT loop would change the X value. In 
this case, the FOR . . . NEXT loop moves in increments of 5, and when a 
random Y value is chosen, the computer draws a line from the old pixel 
coordinate to the X-coordinate 5 pixels to the right of the old one and the 
Y-coordinate at the random location. Once again, the computer must store 
the old value (in this case, the Y-value) in another variable so it will know 
where to begin drawing the next line. 

60 COLOR 1,1,5 

70 FOR X = 0 TO 195 STEP 5 

80 Y1 = RND*150: LINEF X,Y2,X + 5,Y1 

90 Y2 = Y1: NEXT 
100 GOTO 100 

Creating a square or rectangle with LINEF statements is as simple as 
drawing lines. The upper, lower, left, and right sides of the box should all 
match, which means you should have four fixed pixel points. If you wanted a 
box to have an upper left corner at (XI,Y1) and a lower right corner at 
(X2,Y2), type the following to create the four-sided shape: 

LINEF XI ,Y1 ,X2,Y1: LINEF X2,Y1,X2,Y2: LINEF X2,Y2,X1,Y2: 

LINEF XI ,Y2,X1 ,Y1 

Each second pixel point in a LINEF statement connects to the first pixel point 
of the LINEF statement that follows it. In the program illustrated in Figure 4.3, 
random X and Y coordinates are selected and stored in the variables X and 
Y. Next, a random width (variable W) and length (variable L, which is 1.2 
times as large as W because the pixels are not perfectly square) are stored 
in memory. With this information, the computer can draw boxes of random 
location, width, length, and color. 
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5 REM Drawing random boxes 

10 FULLW 2: CLEARW 2 

20 X = RND*300: Y = RND*150 
30 L = RND*30: W = L*1.2 
40 LINEF X,Y,X + W,Y 
50 LINEF X + W,Y,X + W,Y + L 

60 LINEF X + W,Y + L,X,Y + L 
70 LINEF X,Y + L,X,Y 
80 COLOR 1,1 ,INT(RND*15) +1: GOTO 20 

Even though many different types of boxes fill up the screen, only four 
LINEF statements are responsible for each of them, since all the variables 
fluctuate. 

Instead of having completely random boxes, you could also create boxes 
that are geometrically similar but have different dimensions. The next pro¬ 
gram uses a FOR . . . NEXT loop to draw 40 squares that are increasingly 
larger toward the center of the screen. The first few boxes are very small, 
but as the FOR . . . NEXT loop progresses, the size of each square is larger 
than the one before it. This creates an interesting three-dimensional effect, 
shown in Figure 4.4. When the pattern is complete, the ST draws the pattern 
in a different color; run the program to see the colors. The program will keep 
recoloring the object until you stop the program with Control-C. 

5 REM Drawing nested boxes 
10 FULLW 2: CLEARW 2 
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20 FOR X = 0 TO 120 STEP 3 
30 Y = X/1.2 
40 LINEF X,Y,X + X/2,Y 
50 LINEF X + X/2,Y,X + X/2,Y + X/2 
60 LINEF X + X/2,Y + X/2,X,Y + X/2 
70 LINEF X,Y + X/2,X,Y 
80 NEXT 

90 COLOR 1,1 ,INT(RND*15) +1: GOTO 20 

As you probably realize by now, you can create any image made of 
straight lines with the LINEF statement as long as you know the pixel points 
where each line should be placed. Sometimes you’ll need to know absolute 
locations (such as when you are drawing a bar graph, and accurate position¬ 
ing is important); at other times you will simply need to know the relation 
between points to draw a shape of any size at any point on the screen. You 
can draw a triangle, for example, by knowing that the first two points should 
be on the same line, and the third connecting point should be between 
those two but above them by a certain height; with this kind of rough con¬ 
ceptual formula, you could write a program only a few lines long that would 
draw hundreds of different triangles on the screen. 

The next sample program uses absolute coordinates to draw a three- 
dimensional triangular pyramid on the screen. Every time you run the pro¬ 
gram, the same shape will appear. You might try writing a program that will 
draw this pyramid all over the screen, but with different sizes and random 
locations. 
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5 REM Drawing a pyramid 
10 FULLW 2: CLEARW 2 

20 LINEF 50,90,100,90 

30 LINEF 75,20,50,90 

40 LINEF 75,20,100,90 

50 LINEF 50,90,75,80 

60 LINEF 75,80,100,90 

70 LINEF 75,80,75,20 

One of the most obvious practical functions for the LINEF statement is to 
create more complex graphs. The next program will create the bar graph 
shown in Figure 4.5. Instead of drawing graph paper again, create X- and 
Y-axes to get an idea of how the bars compare to one another: 

5 REM Drawing a bar graph 
10 FULLW 2: CLEARW 2 

20 LINEF 10,10,10,150 

30 LINEF 10,150,300,150 

Next, the X value moves from 20 to 280 in steps of 20; this means that 
each bar in the graph will be 20 pixels apart. Because of this, the bars 
should be less than 20 pixels wide, so as not to overlap one another. Once a 
random Y value (the height of the bar) is selected, the ST will draw: (1) a line 
from the X-axis to the height determined by the value of the Y variable, (2) a 


Figure 4.5: Drawing a 
bar graph 
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line from this Y value over 10 pixels to the right (X to X+10), and (3) a line 
going down from this point back to the X-axis. This wMI complete a bar on 
the chart, and each bar will be 10 pixels wide. Once the loop is finished (that 
is, when X reaches 280), the bar graph is finished. 

40 FOR X = 20 TO 280 STEP 20 
50 Y = INT(RND*145) 

60 LINEF X,150,X,Y 

70 LINEF X,Y,X + 10,Y 

80 LINEF X + 10,Y,X + 10,150 

90 NEXT 

100 GOTO 100 

As with any keyword, the best way to learn more about LINEF is to experi¬ 
ment with it; try to make different polygons, three-dimensional figures, and 
graphs using just the LINEF statement. Although it serves only one purpose, 
LINEF can be used for many types of graphics. 

In Chapter 8, I’ll use LINEF in a more realistic—but more complex- 
program to plot bar or line graphs based on input, rather than random, data 
values. 


COLORS , FILLS , AND PATTERNS 


The COLOR Statement 

The COLOR statement, introduced in Chapter 3, lets you alter the color of 
text and much more. The format of COLOR is 

COLOR [text color,fill color,line color,style,index] 

Each of the first three arguments is a number that represents a color to be 
used with some kind of graphics command. The last two arguments repre¬ 
sent a particular style of pattern that you want to fill graphics objects with. 
Note that all of the arguments are shown as optional. In fact, at least one 
would be required in any COLOR statement, depending on context. More 
specific descriptions follow. 


Arguments for COLOR 

Text Color As you know, the text color argument changes the color of the 
text printed. The numbers used to specify color can range from 0 to 15 
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(since you are in the low-resolution mode). If you choose medium resolution, 
the color number can range from 0 to 3. For high-resolution monochrome 
monitors, you can use only 0 and 1. (Note: Each color is not assigned a 
permanent color number. You can assign a color to a number—for example, 
using the Control Panel.) 

Fill Color With the FILL statement, which you’ll learn about shortly, you can 
fill the contents of a graphics area with a color. The color you choose is 
specified in the COLOR statement, in this second argument. 

Line Color The line color argument tells the computer what color lines 
should be. Lines are not just those drawn with the LINEF statement; they 
can also be the lines that make up a circle, ellipse, or some other shape. 

Style, Index These last two numbers form, in effect, a single argument. 
The ST has a set of fill patterns in its memory, identified by a unique pair of 
style, index numbers. The number pairs range from (1,2) to (24,2) and from 
(1,3) to (12,3), and they are illustrated in Figure 4.6. 

Changing the Colors 

Remember that when you issue the COLOR statement, the graphics cur¬ 
rently on the screen will not change; COLOR can only specify the color for 
subsequent graphics and text. The color numbers used with the COLOR 
keyword are given in Table 4.1. 


Figure 4.6: Fill patterns 
and corresponding 
number pairs 
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Table 4.1 : The default 
color numbers 


Number 

Color 

Number 

Color 

0 

white 

8 

gray 

1 

black 

9 

dark gray 

2 

red 

10 

cyan [blue green] 

3 

green 

11 

dark cyan 

4 

blue 

12 

magenta [light purple] 

5 

dark blue 

13 

dark magenta 

6 

dark red [brown] 

14 

yellow 

7 

dark green 

15 

dark yellow 


The COLOR statement can do more than make graphics more interesting 
and fun; it can also make them more useful. For instance, if you drew a pie 
graph that represented several different industries, you could clearly separate 
the different “slices” by different colors, fill patterns, or both. Later in this 
chapter, you will also learn how to customize the 16 colors available in your 
palette. 


The FILL Statement 

One graphics keyword that works closely with COLOR is FILL, whose 
format is 

FILL X,Y 

In this statement, X,Y specify the point at which to start filling the area with 
a color (as specified in the COLOR statement). Since the entire area is filled, 
any point within the area will serve equally well as X,Y. However, FILL will 
successfully fill up an area with a color only if that area is completely 
bounded by pixels. FILL acts as sort of a computerized paint bucket, and it 
will keep filling the area surrounded by the specified pixels until it reaches 
those pixels. However, if there is even one pixel missing from the boundary, 
allowing the color to “leak out,” the color will keep spreading until it is fully 
bounded. 

The next program is identical to the last graph program, except that it 
adds the statements COLOR and FILL and, to make the bars more clearly 
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defined, it fills them with the color green. Finding the right spot to begin the 
fill was easy, since the computer uses the point one pixel to the right and 
one pixel up from its current starting point for each bar; therefore, the pixel 
point is within the bounds of the bar. 

5 REM Drawing a random bar graph 
10 FULLW 2: CLEARW 2: COLOR 1,3,1,1,1 
20 LINEF 10,10,10,150 
30 LINEF 10,150,300,150 
40 FOR X = 20 TO 280 STEP 20 
50 Y = INT (RND*145) 

60 LINEF X,150,X,Y 
70 LINEF X,Y,X +10,Y 
80 LINEF X +10,X,X+10,150 
90 FILL X +1,149: NEXT 
100 GOTO 100 

As I mentioned earlier, you can differentiate between different parts of a 
graph even more clearly by using both different colors and different patterns. 
The next bar-graph program chooses different colors and patterns for each 
bar. The results are illustrated in Figure 4.7. 

5 REM Using different colors and patterns in a bar graph 
10 C = 1: FULLW 2: CLEARW 2: COLOR 1,2,1,1,2 


Figure 4. 7: Bar graph 
with different colors 
and patterns 
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20 LINEF 10,10,10,150 
30 LINEF 10,150,300,150 
40 FOR X = 20 TO 280 STEP 20 
50 Y = INT (RND*145) 

60 LINEF X,150,X,Y 
70 LINEF X,Y,X +10,Y 
80 LINEF X +10,Y,X +10,150 

90 FILL X +1,149: C = C + 1: COLOR 1,C,1,C,2: NEXT 
100 GOTO 100 

The counting variable C ensures that each pattern and color is unique for 
every bar in the graph. Each time a bar is drawn, the variable is incre¬ 
mented (its value is increased by 1) so that the next bar will have the next 
color and pattern as specified by the COLOR statement. 


CIRCLES AND ELLIPSES 

Another advantage of ST BASIC’s graphics keywords is that they let you 
draw complex shapes with ease. With some computers, you might have to 
go through complex calculations to draw something as simple as a circle. ST 
BASIC, on the other hand, has statements such as CIRCLE, PCIRCLE, and 
ELLIPSE, which make drawing a special shape as easy as drawing a line. 


The CIRCLE Statement 

The CIRCLE statement draws a perfect circle (or part of a circle) on the 
screen. Its format is: 

CIRCLE X,Y,radius[,starting angle,ending angle] 

The first three elements, X,Y, and radius, are required to use CIRCLE. X and 
Y are the X,Y-coordinates of the center of the circle. As always, these coordi¬ 
nates are determined by the pixels on the screen, and so a circle in the 
middle of the screen would have a center of about (151,83) in the low- 
resolution mode. The radius, also measured in pixels, determines the dis¬ 
tance from the center of the circle to its perimeter. CIRCLE 60,73,20 would 
draw a circle with a 20-pixel radius, centered at location (60,73). 

The starting angle and ending angle arguments are optional. If you do use 
them, they tell the computer to draw an arc (part of a circle’s circumference) 
starting at a particular point on the circle and ending at another point. The 
angles in the circle go from 0 (at the extreme right edge of the circle) coun¬ 
terclockwise to 3599, as shown in Figure 4.8. The top of the circle would be 
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900, the extreme left side would be 1800, and the bottom would be 2700. 
Remember that a circle is 360 degrees (which, multiplied by 10, equals 
3600—the total number of points you can specify in this circle), and so you 
can specify angles to a precision of 0.1 degree. If you wanted to draw a 
circle with a center at (20,30), a radius of 55, a starting angle of 260 
degrees and an ending angle of 322 degrees, you would type this: 

CIRCLE 20,30,55,2600,3220 

It’s important to remember to multiply the angle measurements by 10. 

The following program examples illustrate the significance of the CIRCLE 
arguments, by demonstrating the effect of varying the value of one or more 
of those arguments. They will also show you how to create some interesting 
graphics. 

The first CIRCLE program varies the radius to draw a series of concentric 
circles (they all have the same center) that first get larger and then smaller, 
as shown in Figure 4.9. Because the color of each circle is random, you can 
see the motion of the circles traveling out and then in. Even though only one 
FOR . . . NEXT loop is used, the program can make the circles go in both 
directions with the help of the D variable. The D variable toggles from 0 to 1 
and back to 0 in line 60. When D equals 0, the circles travel out, since the D 
variable is part of the radius specified in line 30; when D equals 1, the 
circles grow smaller. 

5 REM Drawing concentric circles 
10 FULLW 2: CLEARW 2 
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20 FOR 1 = 3 TO 75 STEP 3 
30 CIRCLE 150,78,D*78-I 

40 COLOR 1,1, INT(RND*15) + 1 

50 NEXT 

60 IF D = 0 THEN D = 1 ELSE D = 0 
70 GOTO 20 

Using a toggle, like the one in line 60, can be a powerful technique in pro¬ 
gramming, since you don’t have to double your programming lines to 
achieve two different effects. Every time the line is encountered, the com¬ 
puter checks the value of the variable; if it is equal to one value, it toggles to 
the other value, and vice versa. This toggling variable can then be used in 
some other part of the program, such as the FOR . . . NEXT loop in the 
sample above. 

The next sample is a fun little program that demonstrates how to position 
circles, by varying the X,Y (center) point. The nested X and Y FOR . . . 
NEXT loops create circles that cover the entire screen, and the centers of 
the circles are lined up so that interesting, regular patterns are created in the 
process, as shown in Figure 4.10. 


5 REM Positioning circles 
10 FULLW 2: CLEARW 2 
20 FOR X = 0 TO 300 STEP 15 
30 FOR Y = 0 TO 165 STEP 15 
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40 CIRCLE X,Y,14 
50 NEXT: NEXT 

60 GOTO 60 

The special effects you can get from overlapping circles are also illustrated 
in the next program, which varies both the center and the radius. Five 
medium-sized circles form a flower pattern by being positioned properly with 
one of the two loops. The first loop makes each circle pattern expand out¬ 
ward, while the inner loop positions the five patterns around the screen. 

5 REM Overlapping circles 
10 FULLW 2: CLEARW 2 
20 REM Begin nested loop 
30 FOR 1=0 TO 70 STEP 3 
40 FOR J = -20 TO 20 STEP 20 
50 CIRCLE 148 — (J *2),80 — J,l 
60 CIRCLE 148 + J*2,80-J,I 
70 NEXT J 

80 COLOR 1,1,INT(RND*15) + 1 
90 NEXT I 
100 GOTO 30 

Just as you created a three-dimensional effect with the LINEF statement by 
drawing increasingly large boxes, you can draw objects such as cones using 
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the CIRCLE statement; each circle drawn should have a radius slightly larger 
than the one before it, and a center below and to the right. Once a sufficient 
number of circles are on the screen, the depth of the cone is realistic, as 
shown in Figure 4.11. 

5 REM Drawing a cone 
10 FULLW 2: CLEARW 2 
20 FOR X = 0 TO 200 STEP 3 
30 CIRCLE X,150-X/2.X/5 

40 NEXT 
50 GOTO 50 

Here’s a twist on the same idea with two multicolored cones, emerging 
from the lower two corners of the screen and merging so that they meet on 
the same circle: 

5 REM Merging cones 
10 FULLW 2: CLEARW 2 
20 FOR X = 0 TO 150 STEP 3 
30 CIRCLE X, 150-X/2.X/5 
40 CIRCLE 300-X,150 -X/2.X/5 
50 COLOR 1,1,INT(RND*15) 

60 NEXT 
70 GOTO 70 
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The optional starting and ending angles in the CIRCLE statement are use¬ 
ful for creating pie charts, pictures, and arches. Two concentric sets of 
colored segments are formed in the next program, with each segment 
increasingly far from the center as the loop progresses: 

5 REM Concentric segments 
10 FULLW 2: CLEARW 2 
20 FOR 1=0 TO 70 STEP 3 
30 X = INT(RND(1)*3400): CIRCLE 70,80,l,X,X + 300 
40 CIRCLE 240,80,1,X,X + 300 
50 COLOR 1,1,INT(RND(1)*15) + 1 
60 NEXT 
70 GOTO 20 

You can also achieve a “motion” effect using circle segments by spacing 
them evenly from the center and turning them on and off in sequence. Here 
is a sample that first draws a full circle, then draws 15-degree segments in a 
counterclockwise direction around the circle. Because the color of the seg¬ 
ments is almost always different from the original circle, you can watch as 
the segments spin around the perimeter: 

5 REM Spinning segments 
10 FULLW 2: CLEARW 2 
20 CIRCLE 150,80,70 
30 FOR A = 0 TO 3500 STEP 100 
40 CIRCLE 150,80,70,A,A + 150 

50 COLOR 1,INT(RND*15),INT(RND*15) 

60 NEXT 
70 GOTO 30 

Another special effect is the spiral, which you can create by manipulating 
the radius and starting and ending angle arguments so that drawn segments 
move out from the center of the circle, each segment shifted somewhat from 
the previous one. Notice how the A variable in the FOR . . . NEXT loop 
determines the radius, starting angle, and ending angle of each segment. 
This illustrates once again how you can efficiently use one variable to create 
a regular pattern, as shown in Figure 4.12. 

5 REM Using one variable to create a regular pattern 
10 FULLW 2: CLEARW 2 
20 FOR A = 1 TO 36 
30 CIRCLE 150,80,A *3,A * 100,(A + 2) * 100 
40 NEXT 
50 GOTO 50 
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Figure 4.12: Using one 
variable to create a 
regular pattern 



If you want the spiral to be drawn continuously with ever-changing colors, 
enter the following line 50 to replace the one above: 

50 COLOR 1,1,INT(RND*15): GOTO 20 


The PCIRCLE Statement 

PCIRCLE works like CIRCLE, except that the circle it draws is filled solidly 
with the color you specify with the COLOR statement and fill pattern argu¬ 
ment. Also, if you draw only part of a PCIRCLE (by specifying starting and 
ending angles), a solid wedge will be drawn rather than just an arc. The for¬ 
mat of PCIRCLE is 

PCIRCLE X,Y,radius[,starting angle,ending angle] 

This next program uses the wedges to create an even more interesting 
spiral pattern than the others you've seen. With each sweep of the spiral, a 
different color is used in the figure. 

5 REM Multicolored spiral 
10 FULLW 2: CLEARW 2 
20 FOR A = 1 TO 36 

30 PCIRCLE 150,80,A*3,A*100,(A + 1.5)*100 
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40 NEXT 

50 COLOR 1,INT(RND*15): GOTO 20 

PCIRCLE is especially useful for pie charts, since it can draw a colored 
wedge. To draw a pie chart, keep the center of each PCIRCLE command con¬ 
sistent and use starting and ending angles that correspond with the data you 
want displayed. That is, if the amount represented by a given slice represents, 
say, 10 percent of the total, the starting and ending angles should differ by the 
same proportion, or 360 (36 degrees). This next program draws a pie graph 
using DATA statements. Figure 4.13 shows the pie graph, but not the colors. 
The first part of the program sets up the Output window and reads the five 
names, fill colors, starting angles, and ending angles for the graph: 

5 REM Pie chart using DATA statements 
10 FULLW 2: CLEARW 2 
20 FOR D = 1 TO 5 
30 READ NAME$,COL,SAN,EAN 


The program then positions the cursor, based on the current value of D. 
As the D variable increases, the cursor is positioned on a lower line (but is 
always at the left edge of the screen). The name of the computer application 
is printed, and the text and fill colors are established with COLOR. Finally, 
the pie wedge is drawn with PCIRCLE. 



Figure 4.13: Pie chart 
using DATA statements 
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40 GOTOXY 0,D: COLOR COL,COL: PRINT NAME$ 

50 PCIRCLE 150,80,50,SAN,EAN 
60 NEXT 
70 GOTO 70 

80 DATA Word Processing,2,0,410 
90 DATA Telecommunications,5,410,1500 
100 DATA Graphics,7,1500,2100 
110 DATA Music,11,2100,2700 
120 DATA Financial Forecasting,14,2700,3600 

You can use your own data with the next program, and the pie chart will be 
drawn once you’ve entered five pieces of data consisting of names and num¬ 
bers, representing percentages. Figure 4.14 shows the pie chart. Make sure 
that your data elements all add up to 100, however, since 100 percent repre¬ 
sents the entire graph. The first part of the program specifies the dimensions 
of the necessary arrays, clears the screen, and begins accepting data: 

5 REM Pie chart with percentages 
10 DIM NM$(5),P(10) 

20 FULLW 2: CLEARW 2 
25 FOR A = 1 TO 5 

30 INPUT "Enter name, percentage";NM$(A),P(A) 

To keep track of where the segments of the pie graph should be located, the 



Figure 4.14: Pie chart 
drawn using input 
percentages 
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program keeps adding the data into a variable called SUM. By using 
the SUM variable, the computer creates a new variable in the P(A) array so 
that it knows what the starting angle should be for each segment. 

40 SUM = SUM + P(A-1): P(A + 5) = P(A) + SUM 
50 REM Input loop is closed with the next line 
60 NEXT 

Once all the data is received, the computer draws the pie chart, listing each 
name as it draws the segments. 

70 CLEARW 2: P(5) = 0: FOR 1 = 1 TO 5 
80 COLOR 1,1,1 

90 PCIRCLE 152,75,50,P(I +4)*36,P(I + 5)*36 
100 REM Note that the angles need to be multiplied by 36 
110 GOTOXY 0,1: PRINT NM$(I) 

120 NEXT 
130 GOTO 130 


The ELLIPSE Statement 

The ELLIPSE statement can create more versatile shapes than CIRCLE, 
since you specify two radii instead of just one. The format for this keyword is 

ELLIPSE X,Y,horizontal radius,vertical radius[,starting angle,ending angle] 

The different elements you can use with ELLIPSE are virtually identical to the 
ones for CIRCLE, except that you control the shape of the ellipse by specify¬ 
ing two different radii. A flat, wide ellipse might have a horizontal radius of 
100 and a vertical radius of 10; a tall, thin ellipse could have a horizontal 
radius of 12 and a vertical radius of 50. You could also draw a circle by 
specifying two identical radii, but using the CIRCLE command would be 
more efficient. 

When using ELLIPSE, you control both the horizontal and vertical radii. 
You can create interesting effects by altering the radii, either concurrently or 
in opposite directions (one growing larger while the other gets smaller). The 
first sample program keeps the two radii equally proportioned to form an 
elliptical cone: 

5 REM Elliptical cone 

10 FULLW 2: CLEARW 2 

20 FOR X = 10 TO 300 STEP 4 
30 ELLIPSE X.X/1.5,X/2.3.X/4 
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40 NEXT 
50 GOTO 50 

Experimenting with ELLIPSE can lead to interesting results. By trying differ¬ 
ent values in a FOR . . . NEXT loop, you may find some attractive new 
design or graphics technique. Here, for example, is a simple program that, 
to my surprise, drew an interesting pattern with a diamond shape inside: 

5 REM Pattern enclosing diamond 
10 FULLW 2: CLEARW 2 
20 FOR 1 = 15 TO 100 STEP 4 
30 ELLIPSE 150,80,1,80-1 
40 COLOR 1,RND*15,RND*15: NEXT 
50 GOTO 50 

In the preceding program, I created the pattern simply by altering one 
of the radii in a reverse relation to the other. As the horizontal radius 
increased, the vertical radius decreased. 


The PELLIPSE Statement 

Just as you can draw segments of a circle by specifying starting and end¬ 
ing angles, you can create elliptical segments by using the same arguments. 
Moreover, with the PELLIPSE statement, you can create solid wedges in the 
same way. The format of PELLIPSE is 

PELLIPSE X,Y,horizontal radius, vertical radius[,starting angle, ending 
angle] 

In the next program, a random starting angle (variable SAN) and ending 
angle (variable EAN) are selected, and the computer draws a wedge. Since 
random wedges appear rapidly on the screen, it takes only a second or two 
before a solid ellipse is completed. The computer will keep drawing ran¬ 
domly colored wedges, of course, until you press Control-C. 

5 REM Random wedges form ellipse 

10 FULLW 2: CLEARW 2 

20 SAN = INT(RND*36)*100 

30 EAN = INT(RND*36)*100 

40 PELLIPSE 150,80,100,70,SAN,EAN 
50 COLOR 1,RND*15 

60 GOTO 20 
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One significant difference between PELLIPSE and ELLIPSE is that the 
former overwrites whatever is on the screen, since it is a solid pattern. If you 
wanted to draw a series of similar ellipses of different colors, one on top of 
the other, you would have to start with the largest and keep drawing until 
you reached the smallest one. If you did it the other way around, each 
ellipse drawn would cover up the previous one, which would be smaller. You 
can use this overlapping and overwriting for graphics effects. The following 
program draws a colorful pattern with a diamond shape in the center: 

5 REM Overlapping to create ellipse pattern 
10 FULLW 2: CLEARW 2 
20 FOR 1 = 15 TO 100 STEP 4 
30 PELLIPSE 150,80,1,80-1 
40 COLOR 1,RND*15,RND*15: NEXT 
50 GOTO 50 

Using this same idea, you can write a program that draws four cross¬ 
shaped, multicolored patterns. Figure 4.15 shows the shapes but not the 
colors; run the program to see them. First you need to clear the screen and 
start the loop that will change the radii: 

5 REM Four cross patterns 

10 FULLW 2: CLEARW 2 

20 FOR 1 = 60 TO 10 STEP -5 


Figure 4.15: Four cross 
patterns 






























120 


UNDERSTANDING ATM ST BASIC PROGRAMMING 


The second FOR . . . NEXT loop is used to draw the four separate patterns. 
Each time the loop is passed, the program reads two numbers into the 
variables X and Y to determine where that ellipse’s center will be. Next, the 
program randomly sets the line color and draws two solid ellipses: one wide 
and short and the other tall and thin. 

30 FOR D = 1 TO 4 

40 READ X,Y: COLOR 1,RND*15 

50 PELLIPSE X,Y,I,10 

60 PELLIPSE X,Y,10,1 

The rest of the program closes the two loops and contains the DATA state¬ 
ments. Notice the RESTORE statement (described in Chapter 2), which is 
used each time the FOR D=1 TO 4 loop finishes. After the D loop is com¬ 
plete, it has read all of the X and Y coordinates, but it has to use them again 
when the loop starts over. To set the pointer to the beginning of the data, 
use the RESTORE statement. 

70 NEXT: RESTORE: NEXT 
80 DATA 60,50 
90 DATA 230,50 
100 DATA 80,120 
110 DATA 210,120 
120 GOTO 120 


THE GRAPHICS KEYWORDS IN ACTION 

For fun, here’s a little program that uses all the graphics keywords 
covered so far in this chapter. This artwork, called UFO at Dusk, is shown in 
Figure 4.16. The program begins by clearing the screen and drawing ran¬ 
dom lines to make up a mountainous horizon (see Listing 4.1, lines 10-80). 

Once these mountains are drawn—and assuming you are using the default 
colors—the computer uses the FILL command to make them entirely green, 
changes the color to yellow, and draws the sun with the PCIRCLE statement 
(lines 90-110). 

Next, the computer draws the body of the UFO with PELLIPSE and the 
windows on it with LINEF, and fills the rest of the sky with dark blue. The 
program ends by printing UFO at Dusk on the screen, and an infinite loop in 
line 190 leaves the picture undisturbed until you press Control-C. 


CHANGING COLORS 

One powerful feature of the ST computers—the ability to access 512 differ¬ 
ent colors—is also a mystery to most ST owners. However, building your 
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Figure 4.16: Output 
from UFO at Dusk 
program 


Listing 4.1 : UFO at 
Dusk program 


own color palette isn’t difficult at all. Although you’ll need to understand a 
few new concepts before you start to bring new colors to your screen, it 
won’t be long before you’re adding even more variety to your graphics pro¬ 
grams by customizing the 16 colors available for your specific needs. 



5 

REM UFO at Dusk 


10 

0 Y = 1 5 0 


20 

FULLW 2: CLEARW 2 


30 

COLOR 1,3,3 


40 

FOR X=0 TO 300 STEP 

40 

50 

Y=75+RND*50 


60 

LINEF X,0Y,X+40,Y 


70 

0 Y = Y 


80 

NEXT 


90 

FILL 200,150 


100 

COLOR 1,14,14 


110 

PCIRCLE 50,50,30 


120 

COLOR 1,6,2 


130 

PELLIPSE 200,50,40, 

10 

140 

FOR X=60 TO 90 STEP 

5 

150 

LINEF X+125,50,X+126,50 

160 

NEXT 


170 

COLOR 1,5,1: FILL 1 

,1 

180 

G0T0XY 3,0: PRINT " 

UFO at 

190 

GOTO 190 
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Defining Colors 

First of all, the computer determines what the 16 colors in the current pal¬ 
ette should look like by means of a number stored in its memory. This num¬ 
ber represents certain proportions of the three basic colors—red, green, and 
blue—from which all the colors are constituted. Because each basic color 
has eight possible levels of intensity, there are 8x8x8, or 512, colors avail¬ 
able in all. The level of red, green, or blue is measured on a scale from 0 to 
7; 0 would mean that none of a particular color was used, and 7 would 
mean that the color was being used at its highest level of intensity. If there is 
red but no green or blue in a color, that color will naturally be red. If you 
added some green to it, the color would be different. If you used the maxi¬ 
mum amount of each basic color, the result would be white, and the 
absence of any color would produce black. 

To determine the number needed to produce a particular color, multiply 
the red level by 256 and the green level by 16, and add these to the blue 
level. For example, if you wanted the red level to be 5, the green level to be 
3, and the blue level to be 6, you would figure the color number as: 

(256 x 5) + (16 x 3) + 6 = 1334 

Your color number would therefore be 1334. 

The 16 numbers that determine the 16 colors of a palette are stored in 16 
memory locations. The computer has a number in memory, location 1114, 
that points to the locations of these 16 numbers. To change the 16 colors 
that are used, you need to put the 16 numbers you have determined into an 
array and change the pointer so that it points to the memory location where 
your array begins. 

To change the pointer in memory location 1114, you would use a new 
statement, POKE, which puts a number in a memory location. Its format is 

POKE memory location,data value 

In this case, the memory location is 1114 and the data value is another 
memory location, the point where the array begins. To find out where the 
array begins, use VARPTR (variable pointer), which returns the address of a 
variable in memory. 

The following program first sets up an array called A°/o, which stores ran¬ 
dom colors into its 15 locations. Notice that the expression in line 40 uses 
the formula 

(256 x red level) + (16 x green level) + (blue level) 


in setting the color numbers. 
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5 REM Store random colors 
10 FULLW 2: CLEARW 2 
20 DIM A°/o(15) 

30 FOR 1 = 0 TO 15 

40 A°/o(l) = 256*INT(RND*7) + 16*INT(RND*7) + RND*7: NEXT 

Then, the program stores the memory location 1114 into the double¬ 
precision variable N (remember to use DEFDBL to define this variable as 
double-precision when you are changing colors). The POKE statement puts 
the variable pointer into memory location 1114, and the word Colors! is 
printed on the screen. Finally, the program goes back to line 30 so it can 
once again select random colors to make the screen flash quickly as it goes 
through different palettes. 

50 DEFDBL N: N = 1114: POKE N.VARPTR (A%(0)) 

60 PRINT "Colors!": GOTO 30 


Color Numbers 

One complication in changing colors is that the color numbers in the pal¬ 
ette array do not correspond to ST BASIC’s color numbers. For instance, 
when you type COLOR 2,3, you are changing the text color to number 2 
and the line color to number 3; these are ST BASIC’s color numbers. How¬ 
ever, if you wanted to change the color in registers 2 and 3 to produce a 
different effect, you would not simply alter A%(2) and A%(3) in the palette 
array. Instead, you would use the conversion table in Table 4.2 to figure out 
which array variables you should alter to get the corresponding change in an 
ST BASIC color. 

Suppose you wanted to change ST BASIC color number 13 (dark 
magenta) to a different color. You would alter array variable A%(14)—or 
whatever array name you are using for the palette—then use the VARPTR 
function to point the computer to that array as its palette, and issue a 
COLOR statement such as COLOR 13,13 to put your new color where dark 
magenta used to be. 

Changing colors with graphics on the screen is even more interesting. The 
following program draws a series of concentric solid circles and then starts 
changing the color palette. Run the program to see the results. 

5 REM Concentric solid circles 

10 FULLW 2: CLEARW 2 

20 FOR R = 100 TO 10 STEP -10 
30 COLOR 1,R/10,R/10: PCIRCLE 150,75,R 
40 NEXT 
50 DIM A°/o(15) 
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Table 4.2: Color 
conversion table 



Location 


Color Number 

in Palette 


in ST BASIC 

Array 

Color 

0 

0 

white 

1 

15 

black 

2 

1 

red 

3 

2 

green 

4 

4 

blue 

5 

6 

dark blue 

6 

3 

dark red 

7 

5 

dark green 

8 

7 

gray 

9 

8 

dark gray 

10 

9 

cyan 

11 

10 

dark cyan 

12 

12 

magenta 

13 

14 

dark magenta 

14 

11 

yellow 

15 

13 

dark yellow 


60 FOR 1 = 0 TO 10 

70 A°/o(l) =256*INT(RND*7) + 16*INT(RND*7) + RND*7: NEXT 

80 DEFDBL N: N = 1114: POKE N.VARPTR (A%(0)) 

90 GOTO 60 


Although you need to define a full 16-color palette when you assign a new 
set of colors, you can change an individual color once you have done this. 
In this next program, only the screen’s background flashes random colors: 


5 REM Background flashes random colors 
10 DIM A%(16): DEFDBL N: N = 1114 
20 FULLW 2: CLEARW 2 
30 FOR 1=0 TO 14 STEP 2 
40 A°/o(l) = 1298 

50 A°/o(l +1) = 1889 
60 NEXT 

70 POKE N.VARPTR (A%(0)) 

80 A°/o(0) = INT(RND*7)*256 + INT(RND*7)*16 + INT(RND*7) 

90 GOTO 70 
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On the other hand, only a slight change in the program makes the 
screen's foreground flash: 


5 REM Foreground flashes different colors 
10 DIM A%(16): DEFDBL N: N = 1114 
20 FULLW 2: CLEARW 2 
30 FOR 1 = 0 TO 14 STEP 2 
40 A°/o(l) = 1298 

50 A°/o(l + 1 ) = 1889 
60 NEXT 

70 POKE N.VARPTR (A°/o(0)) 

80 A°/o(14) = INT(RND*7)*256 + INT(RND*7)*16 + INT(RND*7) 

90 GOTO 70 


Finally, if you'd like to see the whole set of 512 colors, try out the next pro¬ 
gram, which cycles through the entire sequence. The program will display 
the red, green, and blue levels at the top of the screen as the solid circle 
changes colors. If you see colors you’d like to use in your programs, you 
can write the numbers down for future reference. 


5 REM Display 512 colors 
10 DIM A%(16): DEFDBL N: N = 1114 
20 FULLW 2: CLEARW 2 
30 FOR 1=0 TO 14 STEP 2 
40 A°/o(l) = 1298 
50 A°/o(l +1) = 1889 
60 NEXT 

70 POKE N.VARPTR (A°/o(0)) 

80 COLOR 1,2,2: PCIRCLE 150,80,50 
90 FOR A = 1 TO 7 
100 FOR B = 1 TO 7 
110 FOR C = 1 TO 7 
120 A°/o(1) = A*256 + B*16 + C 
130 POKE N.VARPTR (A<>/o(0)) 

140 GOTOXY 0,0: PRINT A,B,C 
150 NEXT: NEXT: NEXT 


Changing colors is especially useful when drawing full-screen pictures or 
representations of real-life objects. The two most important things to remem¬ 
ber are to point the computer to the correct variable array for its palette and 
to use the color conversion table (Table 4.2) to make sure you are changing 
the correct color. 
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THE THIRD DIMENSION- 
PERSPECTIVE DRAWING 

ST BASIC doesn’t have any special commands for drawing three- 
dimensional objects, but you can draw cubes, pyramids, and pictures having 
depth without much trouble. To show perspective, you have to make the 
lines (or shapes) that make up an object grow smaller if they are distant; as 
in real life, things close seem larger and things far away seem smaller. If 
lines recede so far that they disappear over an imaginary horizon, you might 
make them come to a point; in perspective drawing, the point at which all 
the lines converge on the horizon is called the vanishing point, since this is 
where the lines vanish from view. 

The next sample program draws a square with four lines from each corner 
of the square receding into the distance. All the lines meet at a vanishing point 
to give the picture the illusion of depth. The result is illustrated in Figure 4.17. 

5 REM Square with vanishing point 
10 FULLW 2: CLEARW 2 
20 LINEF 50,50,75,50 
30 LINEF 75,50,75,75 
40 LINEF 75,75,50,75 
50 LINEF 50,75,50,50 
60 FOR 1 = 1 TO 4 
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70 READ X,Y 
80 LINEF X,Y, 150,25 
90 NEXT 

100 DATA 50,50,75,50 
110 DATA 75,75,50,75 
120 GOTO 120 


Placing the lines in the proper locations was simply a matter of using the 
same coordinates for the beginning of each line as the ones I used for draw¬ 
ing the square. 

The next program draws the same shape, but it moves the vanishing point 
down and to the right to draw the same sort of perspective 15 times (in 15 
colors). As you’ll see, although the vanishing point changes, the objects all 
have depth. 

5 REM Vanishing point with colors 
10 FULLW 2: CLEARW 2 
20 LINEF 50,50,75,50 
30 LINEF 75,50,75,75 
40 LINEF 75,75,50,75 
50 LINEF 50,75,50,50 
55 FOR C = 1 TO 15: COLOR 1,C,C 
60 FOR 1 = 1 TO 4 
70 READ X,Y 

80 LINEF X,Y,150 + C*7,25 + C*6 
90 NEXT: RESTORE: NEXT 
100 DATA 50,50,75,50 
110 DATA 75,75,50,75 
120 GOTO 120 

The last program in this chapter shown in Listing 4.2, is different since it 
not only performs a specific function—it will draw a cube with the location, 
size, and color you specify—but it also displays the ST BASIC lines required 
to create that same cube in a program, as shown in Figure 4.18. To get the 
same results, you can copy the lines directly from the screen and enter them 
by themselves or within a larger program. The first part of the program (lines 
10-50) sets up the screen and gets the size, location, and color of the cube 
from keyboard input. The size variable, SZ, is multiplied by 1.1 in line 30 to 
make the width slightly greater than the height (since the pixels aren’t per¬ 
fectly square). 

The ST now clears the screen, sets the color, and goes to the subroutine 
called BOX, which draws the first square on the screen (line 60). The values 
for the X and Y variables are then altered to make the next square appear at 
a certain position relative to the first box. The BOX subroutine is once again 
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Figure 4.18: Output 
from Cube Programmer 
program 
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Desk File Run Edit Debug 


ilQUTPUTi; 


Cube of 50 units at 30 


40 


\K 
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used, and the X and Y variables are brought back to their original values 
(line 70). 

Now, the program connects the two boxes with four LINEF commands 
(lines 80-110). The coordinates for these lines are determined with the X and 
Y variables, coupled with the XSZ and SZ variables, which determine the 
size of the cube. 

In lines 120-130, the program positions the cursor at the “home” location 
(position 0,0) and prints the size and location of the cube as measured in 
pixels. To display the lines required to re-create the cube, the program jumps 
to the routine called INSTRUCT. 

In lines 140-170, the BOX subroutine, accessed twice in the program, 
draws a square based on the variables X, Y (for location) and XSZ, SZ (to 
determine size). Making the box is simple, since you need only specify the 
coordinates of the four corners for the square to be complete. 

The INSTRUCT subroutine (line 180) begins by having the program pause 
for a few moments before the screen is cleared so that you can see the 
cube you have created. Next, the program lines are displayed on the 
screen; these lines were simply copied from the rest of the program, but 
because the values of the variables can be displayed directly, numbers (such 
as 20, 45, and 12) are displayed instead of the variable names. This lets you 
make the same cube in a different program, since you don’t have to repro¬ 
gram the variables X, Y, XSZ, or SZ; the numbers are already there in the 
LINEF statements. 

You might think of other utility programs that can help you with program¬ 
ming. Using the mouse (see Chapter 7) will help you draw and reproduce 
graphics even more easily with the ST. 
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Listing 4.2: Cube 
Programmer program 


5 REM Cube Programmer 
10 FULLW 2: CLEARW 2: COLOR 1,1,1 
20 PRINT "Cube Programmer": PRINT 
30 INPUT "What size should the cube be";SZ: 

XS Z = INT(SZ* 1. 1) 

AO PRINT "Where should the cube be placed?": 

INPUT "Enter X,Y"; X,Y: 0X=X: 0Y=Y 
50 PRINT "What color should the cube be?": 

INPUT "Enter a number from 0 to 15";CL 
60 CLEARW 2: COLOR 1,CL,CL: GOSUB BOX: 

X=X+XSZ/3: Y=Y+SZ/3: GOSUB BOX: X=X-XSZ/3 
70 Y=Y-SZ/3 

80 LINEF X,Y,X+XSZ/3,Y+SZ/3 
90 LINEF X+XSZ,Y,X+XSZ*A/3,Y+SZ/3 
100 LINEF X,Y+SZ,X+XSZ/3,Y+SZ*A/3 
110 LINEF X+XSZ,Y+SZ,X+XSZ*A/3,Y+SZ*A/3 
120 GOTOXY 0,0: PRINT "Cube of"SZ"unit at"X", "Y"." 

130 GOTO INSTRUCT 
1 AO BOX: LINEF X,Y,X + XSZ/Y 

150 LINEF X,Y,X,Y + SZ : LINEF X,Y + SZ,X + XSZ,Y + SZ 
160 LINEF X+XSZ,Y,X+XSZ,Y+SZ 
170 RETURN 

180 INSTRUCT: FOR D=1 TO 5000: NEXT: CLEARW 2 
190 PRINT "The lines needed to create" 

200 PRINT "this cube are:" 

210 PRINT:PRINT "COLOR 1 ,"CL","CL" 

220 PRINT "LINEF"X","Y","X+XSZ","Y 
230 PRINT "LIN E F"X","Y","X","Y + S Z 
2A0 PRINT "LINEF"X","Y+SZ","X+SZ,"Y+SZ 
250 PRINT "LINEF"X+XSZ","Y","X+XSZ","Y+SZ 
260 X = I NT (X + XSZ/3) : Y= I NT (Y + SZ/3): 

IF F L = 0 THEN FL = 1: GOTO 220 ELSE X = OX: Y = 0Y 
270 PRINT "LINEF"X","Y","INT(X+XSZ/3)","INT(Y+SZ/3) 

280 PRINT "LINEF"X+XSZ","Y","INT(X+XSZ*A/3)","INT(Y+SZ/3) 

290 PRINT "LINEF"X","Y+SZ","INT(X+XSZ/3)","INT(Y+SZ+A/3) 

300 PRINT "LINEF"X+XSZ","Y+SZ","INT(X+XSZ*A/3)","INT(Y+SZ*A/3) 
310 GOTO 310 


USING GRAPHICS 

I’ve covered a lot of ground in this chapter, and you’ll probably want to set 
aside the book for a few hours (or days) as you try out your new graphics 
skills. Graphics can be a lot of fun, but they can be the base for serious 
applications as well. With LINEF, CIRCLE, PCIRCLE, ELLIPSE, PELLIPSE, 
FILL, and the ability to change the 16-color palette, there are dozens of inter¬ 
esting ways to use graphics on the ST, such as: 

■ Business graphics, such as line graphs, bar graphs, and pie charts. You 
could also write programs to show organizational charts, the layout of a 
plant or office, or the diagram of a product. Since graphics can work in 
conjunction with numeric data so well, business applications aren’t difficult 
to write and are also an excellent way to provide important information. J’JJ 
further explore the use of numeric data with graphics in Chapter 8. 
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a Educational programs, to teach geometry, form graphs for calculus or trig¬ 
onometry and perhaps use big, colorful graphics to teach elementary 
school children about addition and subtraction. Graphics make programs 
especially appealing for younger children, and if there is a young person 
in your family who wants to learn more about something, you might write 
a program to help him or her with that skill. Better yet, if the youngsters 
are good at programming, they would learn even more by actually writing 
the program themselves; that way, they are certain to understand how the 
problems are solved. 

■ Games, which are the most obvious use for colorful graphics. Games are 
actually some of the hardest programs to write, but if you want to try writ¬ 
ing a simple game, the Atari’s graphics can make it a lot more exciting. 

The ST’s graphics are practical, easy to use, and a lot of fun. As always, 
the best teacher is your own experience, so try writing some programs (per¬ 
haps ten) using each graphics keyword. You’ll learn a lot faster, and you’ll 
find that ST BASIC programming with graphics can be one of the most 
enjoyable ways to learn more about your ST’s capabilities. 






SOUND 
AND MUSIC 
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The ST’s ability to produce sounds and music is just as powerful and use¬ 
ful as its graphics potential. You can create musical pieces or sound effects, 
and you can use up to three different channels of sound at once. Because it 
is equipped with the powerful AY-3-8910 sound chip from General Instru¬ 
ments Corporation, producing music or sound is much easier on the ST than 
on many other computers. 

This chip is particularly versatile: 

■ It can produce both sounds and music. 

■ You can create 4,096 possible sounds with the SOUND statement. 

■ You can alter the characteristics of a sound by using the WAVE statement. 

■ You can play up to three voices at once; a voice, or channel, is the term 
used to describe a sound that is being produced. When you are playing 
three notes or sounds simultaneously (for example, to produce a chord), 
you are using three voices; of course, you can also use just one or two 
voices. 

Although ST BASIC has only two keywords for sounds and music, SOUND 
and WAVE, you can generate a wide range of tones with your programs. 


The SOUND Statement 

The keyword you’ll be using most for both sounds and music is SOUND. 
Its format is 

SOUND voice,volume,note,octave,duration 
Here’s a brief description of each argument. 


Arguments for SOUND 

Voice You send the sound through the voice channel. Its value can range 
from 1 to 3. By using different channels at the same time, you can produce 
chords and exotic sound effects. To use multiple channels, however, you 
need to learn about the WAVE statement, described later in this chapter. 

Volume The number for the volume can range from 0 (silence) to 15 
(maximum volume). You can use any integer in this range to tell the 
computer how loud the sound should be, but you’ll probably use 15 most of 
the time. 
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Note There are 12 notes in the musical scale, and the note argument tells 
the computer which note to play; Table 5.1 lists the numbers and the 
corresponding notes. A sharp note is half a step higher than the previous note; 
therefore, A-sharp, or A#, is halfway between A and B. Notice that the higher 
the number is, the higher the pitch; this number and note system is particularly 
convenient when you are programming a song into the computer directly from 
sheet music. Note that in musical notation, A-sharp is written as A#. 

Octave The octave gives you flexibility in how high or low the sound 
should be. The octave can range from 1 (low, bass notes) to 8 (very high 
notes). By combining different notes and octaves, you have a total of 96 
different notes from which to choose. A single octave of a piano scale is 
shown in Figure 5.1. 

Duration Finally, the duration argument of the SOUND statement tells the 
computer how long to play the tone. Its value can range from 0 to 65535, 
and each unit of the duration is one-fiftieth of a second. Thus, a duration of 
150 would play the tone for three seconds, and a duration of 0 would play 
the sound for a split-second. In fact, a duration of 0 isn’t really 0 seconds. It 
is the time it takes BASIC to execute all the statements up to the nearest 
WAVE 0 or SOUND statement. If no other command follows SOUND, the 
tone will keep playing indefinitely; the duration argument is meaningful only 
in a program, where some other command follows SOUND. To produce 
sound effects rather than musical notes, you should use a very low number 


Table 5.1: Musical 
notes and 

corresponding numbers 


Number 

Note 

Number 

Note 

1 

C 

7 

F-sharp 

2 

C-sharp 

8 

G 

3 

D 

9 

G-sharp 

4 

D-sharp 

10 

A 

5 

E 

11 

A-sharp 

6 

F 

12 

B 
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for the duration (such as 0), so that the individual tones blend with each 
other and therefore give you a lot of flexibility when making sound effects. 


Examples of SOUND Statements 

The program below presents a few sample SOUND statements to show 
how these arguments work together. 


10 WAVE 0 
20 SOUND 1,15,5,3,50 
30 WAVE 2 
40 SOUND 3,5,9,5,25 
50 WAVE 1 
60 SOUND 2,0,1,4,100 


The first SOUND statement plays the note E (5) in octave 3 at the maxi¬ 
mum volume (15) through channel 1 with a duration of one second, and the 
second plays the note G# in octave 5 for half a second through channel 3 at 
a volume of 5. The third plays the note C in octave 4 for two seconds 
through channel 2; however, since the volume is 0, the sound will not be 
audible. Notice that each SOUND statement is preceded by a WAVE state¬ 
ment. You’ll learn how these instructions work together later in this chapter. 

Changing the arguments of the SOUND statement is an easy way to alter 
the characteristics of the sounds and music you produce. For example, you 
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could write a program like this next one, which repeatedly changes the vol¬ 
ume from its minimum to its maximum level: 

3 REM Change volume 
5 WAVE 1 
10 FOR V = 0 TO 15 

20 SOUND 1,V,1,4,0 

30 NEXT 
40 GOTO 10 

(Of course, you can also change the volume by adjusting the dial on your 
monitor. Atari monitors are equipped with a built-in speaker; by turning the 
dial to the left, you can increase the sound, and turning the dial to the right 
makes the sound softer. There is a notched point in the dial you will notice 
when turning it; this is usually a good volume setting.) 


Working with Binary 

Changing the volume or pitch of a sound, however, doesn’t give you a lot 
of versatility when you want to make more complex tones. The WAVE state¬ 
ment lets you radically alter the characteristics of the sounds produced by 
your ST. 

Before exploring the WAVE statement in depth, you first need to understand 
simple binary arithmetic. First, consider our normal system of counting: the deci¬ 
mal system. When you look at a number, such as 2201, you understand what its 
value is because you’ve worked with decimal numbers all your life. If you ana¬ 
lyze this number, though, other numeric systems become easier to understand. 
By definition, the decimal system is based on units of ten. Beginning at the right, 
the first place in a number represents ones (10°—or N°—equals 1), the second 
place in a number holds tens (10 1 equals 10—or N 1 equals N), the third place in 
a number holds hundreds (10 2 equals 10 x 10, or 100), and so on. Thus, you 
could analyze 2201 by stating: 

2201 

tU - 1 x 10° = 

I-0 x 10 1 = 

I-2 x 10 2 = 

-2 x 10 3 = 


1 

0 

200 

2000 


By adding these numbers—2000, 200, 0, and 1—you get 2201. 

The binary system is similar, except that it is based on powers of 2 rather 
than 10, as shown in Table 5.2. 
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Table 5.2: Binary place 
values 


Digit Position 

Binary 

Place 

from Right 

Place 

Value 

1 

2° 

1 

2 

2 1 

2 

3 

2 2 

4 

4 

2 3 

8 

5 

2 4 

16 

6 

2 5 

32 

7 

2 6 

64 

8 

2 7 

128 


The digits in a binary number are either 0 or 1; for example, 0110101, 
1110101, or 11111111010101. You can determine the decimal value of any 
of these numbers by multiplying each digit by the value its place holds and 
then adding the numbers. To figure out the decimal value of 11010: 


11010 

< fffL_o x 2° = 0 

I-1 x 2 1 = 2 

I-0 x 2 2 = 0 

I-1 x 2 3 = 8 

-1 x 2 4 = 16 


Total = 26 

The binary number 11010, therefore, equals the decimal number 26. Also, 
each place within a binary number is called a bit (short for binary digit). The 
number 11010, therefore, has five bits in it. 

Binary numbers are valuable because all computer operations are repre¬ 
sented and performed with a two-state system: on/off, true/false. Let’s 
assume the computer has a status register that indicates certain conditions 
that exist, for example: 

Bit 0: Is the printer turned on (set bit to 1) or off (set bit to 0)7 

Bit 1: Is my user John (1) or Jane (0)7 

Bit 2: Is it daytime (1) or evening (0)7 

Bit 3: Have any files been copied or deleted (1) or neither (0)7 
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Bit 4: Is the monitor color (1) or monochrome (0)? 

Bit 5: Is it a weekday (1) or the weekend (0)? 

Using these conditions, the binary number 100011 (decimal 35) would tell 
you that the printer is on, John is using the computer, it is evening, no files 
have been copied or deleted, the computer is using a monochrome monitor, 
and it is a weekday. By stating the decimal number 35, you could convey 
the same information. In fact, you could have 50 different conditions and 
answer all of them either yes or no with a single number. 

An ST computer works with a set number of bits so it can handle informa¬ 
tion: eight. These eight bits comprise one byte. By setting the bits within a 
byte, you can specify exact conditions for the computer to follow. The value 
of a byte can range from 00000000 (0 decimal) to 11111111 (255 decimal), 
giving 256 combinations in all. To get a decimal value, add the values of the 
places that are set to 1, reading from the rightmost digit to the leftmost digit. 
Table 5.2 lists the place values. 

The arguments of the WAVE statement depend on your understanding of 
simple binary numbers. 


The WAVE Statement 

You can use the WAVE statement to produce sound effects, alter the tones 
that the SOUND statement produces, or open specific channels so that 
sound can come through them. The format for the WAVE statement is 

WAVE enable[,envelope,shape, t period,delay] 

Descriptions of each argument follow. 


Arguments for WAVE 

Enable With the enable argument, you can specify which voices to use for 
music and which for noise. When a voice is used for noise, a different type 
of sound results. The waveform of a musical note is smooth and continuous; 
that of a noise is discontinuous. Bits 0, 1, and 2 tell the computer to play 
music through the first, second, or third channel, respectively. Bits 3, 4, and 
5 tell the computer to play a noise through the first, second, or third channel, 
respectively. (Bits 6 and 7 are not used.) You can set as many of these bits 
to 1 as you want; for example, if you wanted voice 1 to play music while 
voices 2 and 3 played noise, your binary number would be 00110001, 
which translates to 49 decimal. You need to convert to decimal, since WAVE 
(like the other ST BASIC keywords) does not accept binary numbers. 
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Envelope The envelope argument tells the computer which voices should 
be affected by the WAVE statement. You might sometimes want just one or 
two channels to have the special characteristics you are setting up with 
WAVE, while the remaining channels are left as they are. Bit 0 indicates that 
you want WAVE to affect voice 1, bit 1 indicates voice 2, and bit 2 indicates 
voice 3. To relieve some of the translation work, Table 5.3 shows the decimal 
numbers you specify to make WAVE affect certain channels. 

Shape A waveform is a pattern programmed in the computer to make the 
volume of a sound modulate up and down in a certain way. To make a 
sound move quickly up and down in volume for a tremolo effect, use a 
jagged-looking waveform. Figure 5.2 shows the eight waveforms available 
and their corresponding numbers, which you use with the shape argument. 

Period You can change the balance of the bass (low pitch) and treble (high 
pitch) of a sound by adjusting the value of the period. This argument usually 
ranges from 0 (treble emphasized) to 31 (bass emphasized). The period 
argument essentially sets how fast the tone will cycle; near the end of this 
chapter, you’ll learn how to use larger numbers for other things besides bass 
and treble control. 

Delay The delay argument determines how long a sound is played before 
the computer moves on to the next sound. As in the SOUND statement, you 
can set this to increments of one-fiftieth of a second, which means that 250 
would play a sound for five seconds. The maximum delay allowed is 65,535. 


Table 5.3: Values for 
envelope argument 


Number 

Channels Affected 

1 

1 

2 

2 

3 

1 and 2 

4 

3 

5 

1 and 3 

6 

2 and 3 

7 

1, 2, and 3 
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Figure 5.2: Waveforms 
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Uses of WAVE 

The WAVE statement is also useful in expanding the types of music and 
sound effects you can produce. You can open and close different channels 
for one-, two-, or three-voiced music or sound effects, and with WAVE 0, you 
can turn off the sound channels completely. 


Using SOUND and WAVE 

The SOUND statement offers 96 tones from which to choose; the WAVE 
statement brings the total to 4,096. 


Musical Notes 

The SOUND statement’s most obvious use is to play music. Because the 
frequencies for the 96 different notes are already stored in the computer’s 
memory, there is no need for any difficult numeric conversions to figure out 
what frequency a particular note requires. 

This first sample program will display each note and play it through the 
first voice. First, clear the Output window and turn on the sound with 
the WAVE 1 statement: 

5 REM Display and play notes 

10 FULLW 2: CLEARW 2 

20 WAVE 1 
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Now, the program uses a FOR. . .NEXT loop to read all 12 notes; as each 
note is read, the computer displays it on the screen and plays the note by 
using the value of the FOR. . .NEXT loop: 

30 FOR N = 1 TO 12 

40 READ N$ 

50 PRINT "This note is ";N$ 

55 SOUND 1,15,N,5,25 

60 NEXT 

70 DATA C,C-sharp,D,D-sharp,E,F,F-sharp,G,G-sharp,A,A-sharp,B 

80 WAVE 0 

RUN 

This note is C 
This note is C-sharp 
This note is D 
This note is D-sharp 
This note is E 
This note is F 
This note is F-sharp 
This note is G 
This note is G-sharp 
This note is A 
This note is A-sharp 
This note is B 

When you issue a SOUND statement, that note will continue playing until 
another SOUND statement is encountered or WAVE 0 (as in line 80) is used 
to turn off the voice through which the sound is being played. An alternate 
method for stopping a sound is to issue another SOUND statement through 
the same channel but with a volume of 0. 

A somewhat more elegant way of showing the notes the Atari can play is 
to use graphics to draw the notes on a musical scale as they are being 
played. The program shown in Listing 5.1 does this by first drawing the staff 
used in music composition. The five horizontal lines are drawn in lines 
20-30. Then, the thick line on the extreme left of the staff is made in line 40 
with another FOR. . .NEXT loop and the LINEF statement. 

To have the program play the musical scale once going up and then again 
going down, set up a loop in line 60. The loop counts from 1 to 2 so that 
the scale plays twice, and the variable in the loop determines where the note 
is drawn on the screen. Also in line 60, the program will read the variables 
A, B, and C into memory to find out where the next loop should begin (at A) 
and end (at B), and at what step the loop should progress (C). Two more 
data elements are then read in line 70: the note and the octave in which that 
note should be played. 
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Listing 5.1: Musical 
Scale program 


5 REM Musical scale program 
10 FULLW 2: CLEARW 2: WAVE 0: COLOR 1,1,1 
20 FOR Y=20 TO 60 STEP 10 
30 LINEF 10,Y,500,Y: NEXT 
40 FOR X=10 TO 15: LINEF X,20,X,60: NEXT 
50 WAVE 1 

60 FOR L=1 TO 2: READ A,B,C 
70 FOR N=A TO B STEP C: READ NT,0 
80 PCIRCLE (L*80)+N*25,75-(N*5),10 

90 LINEF (L*80)+N*25+10,75-(N*5),(L*80)+N*25+10,55-(N*5) 
100 SOUND 1,15,N,0,30 
110 NEXT: NEXT: WAVE 0 
120 DATA 1,8,1 

130 DATA 1,3,3,3,5,3,6,3,8,3,10,3,12,3,1,4 
140 DATA 8,1,-1 

150 DATA 1,4,12,3,10,3,8,3,6,3,5,3,3,3,1,3 


In line 80, the computer draws the note on the staff. The variables L (used 
in the first loop) and N (the number for the note) position the note correctly. 
The PCIRCLE statement draws a solid black circle with X-coordinate 
L*80 + N*25, Y-coordinate 75-(N*5), and a radius of 10. There’s no special 
formula I used for these numbers; as with most problems in programming, I 
began with only a general idea of what I wanted and simply had to experi¬ 
ment until I got it right. 

The line drawn from the rightmost edge of the circle and up 20 pixels 
completes the drawing of the musical note. Since the radius of the PCIRCLE 
was 10, I simply added 10 to the two X-coordinates to get the proper hori¬ 
zontal positioning, and I adjusted the value for the second Y-coordinate to 
make the line 20 pixels high. The first Y-coordinate remained the same (see 
line 90). 

The last part of the program plays the sound (line 100), closes the second 
two loops, and shuts off the sound when the program is through (line 110). It 
also contains the data for the loops, notes, and octaves (lines 120-150). 


Playing Songs 

Programming songs for the ST to play is not difficult, since you can type 
the numbers for the notes and octaves directly. If you are not familiar with 
musical notes, Figure 5.3 shows where the notes are placed and how the 
notes correspond with the placements. Pay attention to whether the note is 
directly on the line, between two lines, or (in the case of the note C) below 
the whole staff and not touching any lines. 
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Figure 5.3: Musical 
staff and location of 
notes 



What the notes look like—whole, half, quarter, and so on—tells you the 
duration of the note (which is the fifth argument of the SOUND statement). 
Table 5.4 gives you good estimates to use for the duration values, and Fig¬ 
ure 5.4 shows what the notes look like. 


Table 5.4: Duration of 
notes 


Duration 

Type of Note 

96 

Whole note 

72 

Dotted half note (three-quarters of a whole) 

48 

Half note 

36 

Dotted quarter note (three-quarters of a half) 

24 

Quarter note 

12 

Eighth note 

6 

Sixteenth note 
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Figure 5.4: Types of 
notes 


If you want a generic music maker so that you can type values into DATA 
statements and have the computer play your music, you can use the next 
program; it’s not very elegant, but it does the job. 

5 REM Generic music maker program 
10 READ X: REM Read number of notes to be played 
20 FOR N = 1 to X 

30 READ NO,OC,DU: REM Read the note, octave, and duration 
40 SOUND 1,15,NO,OC,DU 

50 SOUND 1,0,4,4,0 

60 NEXT 

70 DATA: REM Put the number of notes to be played here 

80 DATA: REM Put the numbers for the notes, octaves, and durations 

here and in subsequent lines 

Remember to keep the order of the numbers for the notes, octaves, and 
durations correct, or you might hear a catastrophe instead of a symphony. 

If you don’t want to use charts to translate sheet music into numbers, the 
program in Listing 5.2 will help somewhat. It accepts information from the 
keyboard about the notes you want played, plays the song when you’re 
through, and then displays the numbers you will need to program that song. 

The computer initially clears the screen (line 10), sets up the variable 
arrays (line 20), and accepts the value you want for the volume (line 30). 

The program then reads the 12 strings for the different notes into memory 
(line 40); conveniently, the array numbers correspond to the note numbers. 
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Listing 5.2: Music 
Maker program 


5 

10 

REM Music maker program 

CLEARW 2: FULLW 2 


20 

DIM A$(13),N<120),0(120),LC120) : X = 1 


30 

INPUT "Enter volume (1-15): ";V0: IF V0<1 OR 

V0>15 THEN 

40 

GOTO 30 

FOR 1=1 TO 12: READ A$(I) 


50 

NEXT 


60 

INPUT "Note, duration, and octave: ";N$,LN,0T 


70 

IF N$="QUIT" OR N$="END" THEN GOTO 170 


80 

G0SUB 120 


90 

X=X+1 


100 

GOTO 60 


110 

DATA C,C#,D,D#,E,F,F#,G,G#,A,A#,B 


120 

NS = 1 


130 

IF A$(NS)=N$ THEN GOTO 150 


140 

NS=NS+1: GOTO 130 


150 

N (X ) =NS: L (X)=96/LN: 0(X)=0T 


160 

RETURN 


1 70 

REM Play music 


180 

FOR 1=1 TO X-1 


190 

SOUND 1,V0,NCI),0(1),LCI): SOUND 1,0,4,4,0 


200 

NEXT 


210 

FOR 1=1 TO X-1: PRINT "Note "N (I)", duration 

"L(I)", 

220 

octave "0(1) 

NEXT 


230 

INPUT X 



Therefore, the string in array A$(5) is equal to what note 5 represents: E. 
Next, the program begins accepting note, duration, and octave data from 
the keyboard (line 60); when you’re through entering numbers, simply type 
QUIT,0,0, or END,0,0 (because the INPUT statement expects to receive a 
note and two numeric values). 

In line 80, the computer jumps to the subroutine that begins at line 120; 
you can type these lines out of order, since the computer will put them back 
in order as you are programming. The subroutine in lines 120-160 finds the 
note number of the string you’ve just entered. It scans all 12 of the strings 
stored in A$(NS), and when it finds a match, it assigns that note number to 
the array N(X). For the duration enter the complement of the number corres¬ 
ponding to the type of note you want to play; a whole note would be 1, a 
half note 2, a quarter note 4, an eighth note 8, and so on. The program 
determines the note duration by dividing 96 by the duration you’ve just 
entered, and the octave number is put directly into an array. 

In line 90, for each note you type, the variable X is incremented by 1 
(recall that X was set to 1 at the beginning of the program on line 20); line 
100 tells the computer to go back to line 60 to continue getting input, and 
line 110 contains the string data stored in the array A$(). 

Finally, the computer plays the music and displays the numeric information 
you’ll need. The routine that plays the music simply counts from 1 to X-1 so 
that all notes are played (line 180), and the second SOUND statement in line 
190 puts a slight pause between each note. Line 210 shows the note, 
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duration, and octave data so you can write it down and use it directly (for 
instance, in the generic music maker program listed earlier). Line 230 has an 
INPUT statement whose only purpose is to make the computer wait until you 
are through writing down the data; when you are, press Return to enable the 
computer to escape from the INPUT statement and end the program. 

When you are running the Music Maker program (Listing 5.2), you should 
be careful about what you enter for the notes and octaves. The note 
should correspond to the string presenting the note number. If you want the 
computer to play A, enter A; for D-sharp, enter D#. The octave must be 
between 1 and 8; most songs sound best in the middle octaves. The com¬ 
puter will convert all of this information so that the data it displays at the end 
of the program will already be translated to the numbers you’ll need in your 
DATA statements. 

Here is what the output of Listing 5.2 looks like: 

RUN 

Enter volume (1-15): 14 
Note, duration, and octave: C,2,3 
Note, duration, and octave: E,4,4 
Note, duration, and octave: G,8,5 
Note, duration, and octave: A#, 1,2 
Note, duration, and octave: END,0,0 

Note: The song is played at this point. 

Note 1, duration 48, octave 3 
Note 5, duration 24, octave 4 
Note 8, duration 12, octave 5 
Note 11, duration 96, octave 2 

Just for fun, the program in Listing 5.3 is a ready-made song (if you can 
call “Chopsticks” a song) that uses two voices at once. First, the program 
turns off the sound with the WAVE statement (line 10) and issues two 
SOUND statements that set the volume of the first and second voices to 0 
(line 20). 

The program now reads three sets of data (line 30), each set containing 
two notes (N1 and N2) and the number of times that pair of notes should 
be played together (N). After each data set is read, the computer starts a 
FOR . . . NEXT loop that plays the pair of notes, delays shortly, then con¬ 
tinues the loops (lines 50-100). 

The last part of this program finishes with another pair of notes that are 
played for only a couple of moments (lines 110-120). The DATA statements 
in lines 130-150 contain the three sets of notes needed to play most of 
“Chopsticks.” 
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Listing 5.3: Chopsticks 
program 


5 REM Chopsticks program 
10 WAVE 0 

20 SOUND 1,0,1,1,0: SOUND 2,0,1,1,0 

30 FOR X = 1 TO 3 

40 READ N,N1,N2 

50 FOR 1=1 TO N 

60 SOUND 1,15,N1,4,1 

70 SOUND 2,15,N2,4,1 

80 WAVE 7: FOR D=1 TO 90: NEXT: WAVE 0 
90 NEXT I 
100 NEXT X 
110 SOUND 1,15,1,4,1 

120 SOUND 2,15,1,5,10: WAVE 7: FOR D=1 TO 1250: NEXT: WAVE 0: 
END 

130 DATA 6,6,8 
140 DATA 6,5,8 
150 DATA 6,3,12 


Sounds with SOUND 

By using a duration of 0, you can turn the SOUND statement from a music 
maker to a tool for sounds. Although you still use musical notes and octaves, 
you can blend them at a high speed to create interesting sounds for games, 
educational programs, and other applications. To make sound effects with 
SOUND you will almost always use a FOR . . . NEXT loop or some sort of 
random pattern. 

The first sample program uses both techniques to make a cacophony of 
sound. All the sound channels are turned on with the WAVE 15 statement, 
and each voice produces a random sound. The FOR . . . NEXT loop moves 
the computer through all three voices, and the GOTO 20 in line 50 forms an 
infinite loop so that the sounds keep playing until you halt the program with 
Control-C. 

5 REM Cacophony of sound 
10 WAVE 15 
20 FOR V = 1 TO 3 

30 SOUND V,RND*15,RND*12,RND*8,0 
40 NEXT 
50 GOTO 20 

Using loops is a good way to produce sounds, since most distinctive 
sounds involve variations of frequency that move up and down the scale. 
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Here is a program that quickly goes through the entire musical scale of 96 
notes at a high speed so that a rapidly ascending tone is played through the 
first channel. 

5 REM Rising tone 

10 WAVE 1 

20 FOR I = 1 TO 8: REM Moves through eight octaves 
30 FOR J = 1 TO 12: REM and 12 notes 

40 SOUND 1,15,J,I,0 

50 NEXT J: NEXT I 

By using all three voices for a similar effect, an even more interesting 
series of tones is produced in the following program. Voice 1 goes from 
octave 1 to 6, voice 2 goes from octave 2 to 7, and voice 3 
goes from octave 3 to 8. All these channels are used simultaneously to move 
through 56 different notes, and because each channel is in a different 
octave, the three notes being played form a special effect. In lines 20-40, 
the three voices are turned on and the loops for the octave (the I loop), the 
notes (the J loop), and the three voices (the K loop) are started. 

5 REM Three voices 

10 WAVE 15 

20 FOR 1=0 TO 5 

30 FOR J = 1 TO 12 

40 FOR K=1 TO 3 

Then, you use the SOUND statement in conjunction with the FOR . . . NEXT 
variables to send each note to its appropriate sound channel. The variables I 
and K are added to determine the octave, and since K represents the voice 
currently being used, this technique ensures that each channel will use a dif¬ 
ferent octave (equal to its channel number plus the current octave value). 
Line 60 closes the three loops: 

50 SOUND K,15,J,I + K,0 
60 NEXT K: NEXT J: NEXT I 

Playing different sounds through two or three channels is interesting when 
the same notes are being used, but you can make more exotic sound effects 
by setting up opposing notes and frequency changes in different channels. 
In this next program, the first channel plays a rapidly ascending sound while 
the second channel plays a quickly descending sound. The frequencies 
draw closer together, pass each other, and then become farther apart until 
each sound finishes where the other began. This is done simply by using the 
values I (for the octave) and J (for the note) in the SOUND statement in line 
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40, then reversing these values by specifying 9-1 (to get the opposite chord) 
and 13-J (to get the opposite note) in the SOUND statement on line 50. 
Using variables in FOR . . . NEXT loops in unusual ways such as this simpli¬ 
fies programming of complex-sounding effects. 

5 REM Opposing notes and frequency changes 
10 WAVE 7 
20 FOR I = 1 TO 8 
30 FOR J = 1 TO 12 
40 SOUND 1,15,J,I,0 
50 SOUND 2,15,13-J,9-1,0 
60 NEXT J: NEXT I 
70 WAVE 0 


Graphing Sounds 

As the frequencies of a sound go up and down, it might be interesting to 
see a graph of the sound as it is playing. The graphics would not be difficult 
to draw, since you could simply make the value of the Y-coordinate corres¬ 
pond with the frequency being played; higher tones would make the line on 
the graph move up, while lower tones would move the line downward. 
Unlike the other programs in this book, the next two should be used in the 
medium-resolution mode, since you want to show as much sound as pos¬ 
sible on the graph; if you are in the low-resolution mode, go back to the 
GEM Desktop and use Set Preferences to use medium-resolution for these 
next two programs. 

The first program combining graphics and sound prints a graph of random 
sound as it is playing. The program clears the screen (line 10), turns on the first 
channel, and draws the horizontal lines of the grid using a FOR . . . NEXT loop: 

5 REM Print graph of random sound 
7 REM Use medium resolution 
10 FULLW 2: CLEARW 2: WAVE 1 
20 COLOR 1,1,1: FOR X = 10 TO 590 STEP 20 
30 LINEF X,10,X,160: NEXT X 

Next, the vertical lines are drawn with a second loop, and the color is 
changed so that the graph will stand out from the grid behind it: 

40 FOR Y = 10 TO 160 STEP 15 
50 LINEF 10,Y,590,Y: NEXT Y: COLOR 1,1,3 

To make the graph move across the screen, a loop counts from 10 to 585 
in steps of 5; the graph is drawn by connecting the points with short lines. 
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The program remembers the old Y-coordinate by storing it in the variable 
OYC, and the new Y-coordinate is chosen randomly and stored in YC. 
Because there is no old Y-coordinate when the program starts, OYC is set 
arbitrarily to 100 when the loop begins: 

60 OYC = 100: FOR X = 10 TO 585 STEP 5 

Now, the random notes and octaves are selected (line 70), and after each 
tone is played (line 80), a new Y-coordinate is chosen and a line is drawn from 
the old Y-coordinate to the new one. The values for the two X-coordinates are 
simply the current value of X from the FOR . . . NEXT loop and that same 
value plus 5; YC is stored in OYC before the loop continues at line 100, and 
when the loop is through, the WAVE 0 in line 110 turns the sound off: 

70 0 = RND*8: N = RND*12 

80 SOUND 1,15,N,0,3 

90 YC = 160 -(O* 12 + N): LINEF X,OYC,X + 5,YC: OYC = YC 
100 NEXT X 
110 WAVE 0 

By changing the simple variables into arrays, you can create a similar pro¬ 
gram graph that uses three different channels, each playing random tones. 
The graph is shown in Figure 5.5, and the program is shown in Listing 5.4. 

Notice particularly that in line 80, the COLOR statement is used in conjunc¬ 
tion with the value of A so that the three different graphs drawn are different 


Figure 5.5: Three ran¬ 
dom voices, graphed 
as they play 
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Listing 5.4: Random 
Voice program 


5 

REM Random voices, graphed as they play 


7 

REM Use medium resolution 


10 

FULLW 2: CLEARW 2: WAVE 15: REM All three 

voices ar 


turned on 


20 

COLOR 1,1,1: FOR X=10 TO 590 STEP 20 


30 

LINEF X,10,X,160: NEXT X 


40 

FOR Y=10 TO 160 STEP 15 


50 

LINEF 10,Y,590,Y: NEXT Y 


60 

0Y C (1) = 100: 0YC(2)=100: 0YC(3)=100: FOR X = 

= 10 TO 585 


STEP 5 


70 

FOR A=1 TO 3: 0(A)=RND*8: N (A)=RND*12 


80 

SOUND 1 ,15,N (A),0 (A),1 : COLOR 1,1, A 


90 

YC (A) = 160 - (0(A)*12+N(A)): LINEF X,0YC(A), 

,X+5,YC(A) 


0YC(A)=YC (A) 


100 

NEXT A: NEXT X 


110 

WAVE 0 



colors. In the medium-resolution mode, only four colors are available (and one 
is the background color, which you cannot distinguish from the background), 
so one of the graphs is the same color as the grid. However, using different 
colors for the three graphs still makes them easier to tell apart. 


Elements of Sound 

Now let’s consider what effects you can produce by varying the argu¬ 
ments of the WAVE statement. To give you an idea of the significance of 
WAVE'S arguments, the next sample program goes through all the wave¬ 
forms and a wide array of periods, and plays the sounds. In fact, the 
purpose of the period argument is expanded so that you don't just have to 
use numbers from 0 to 31 for the bass and treble adjustment; by using large 
numbers (such as 1000) for the period, you can increase the range of 
sounds your ST can make. Notice how the tone changes as WAVE’S argu¬ 
ments are altered: 

5 REM Cycle through waveforms and periods 
10 FULLW 2: CLEARW 2 
20 FOR X = 1 TO 8: READ ENV 
30 PRINT "This is shape";ENV 
40 FOR D = 1 TO 500: WAVE 8,3,ENV,D 
50 FOR D1 =1 TO 300: NEXT D1 
60 NEXT D: NEXT X 
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70 DATA 0,4,8,10,11,12,13,14 
80 WAVE 0 

The next program displays the values of the shape and period as it is 
playing them, each new display overwriting the previous one, and it uses a 
much more limited range for the period: 

5 REM Display numbers for shape and period while playing 
10 FULLW 2: CLEARW 2 
20 FOR SHAPE = 8 TO 14 
30 FOR PERIOD = 0 TO 31 
40 WAVE 1,1,SHAPE,PERIOD,3 

50 GOTOXY 0,0: PRINT "Shape = "SHAPE", period = "PERIOD 
60 NEXT 
70 NEXT 
RUN 

Shape = 8, period = 0 
Shape = 8, period = 1 
Shape = 8, period = 2 


Shape = 14, period = 31 

Besides being able to alter the nature of a sound, WAVE can produce 
sound effects entirely on its own. Unfortunately, there is no methodical way to 
produce precisely the sound you want. As usual, trying random numbers will 
help you stumble across various interesting effects, and you’ll soon find the 
one you are looking for. Concentrate on changing the period value, since 
high numbers in that argument yield good results. As I was trying different 
values with WAVE, I came across a few interesting sound effects, which are 
included in the following program: 

5 REM Sound effects 
10 FULLW 2: CLEARW 2 
20 PRINT "Waves on the beach:" 

30 WAVE 8,3,14,9000 
40 GOSUB DELAY 
50 PRINT "Helicopter:" 

60 WAVE 8,3,14,900 
70 GOSUB DELAY 
80 PRINT "Synthesized drum:" 

90 SOUND 1,15,1,4,1: SOUND 2,15,5,4,1: SOUND 3,15,8,4,1 
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100 WAVE 56,7,8,1500 
110 GOSUB DELAY 

120 SOUND 1,0: SOUND 2,0: SOUND 3,0 
130 END 

140 DELAY: FOR D = 1 TO 9000: NEXT: RETURN 


Sounds and the Mouse 

Just as you can combine graphics and sounds, you can merge other 
components of the ST. In this case, you can use the mouse to adjust the 
sound that is being played. The computer can receive information directly 
from the mouse, and by using these values it receives in sound statements, 
it can give you control over the tones produced. With this next program, you 
can move the mouse up and down to change chords and left and right to 
change notes. Start by opening the first channel, clearing the screen, and 
setting up a mouse input routine (see the section on GEMSYS Operations in 
Chapter 6 for more details): 

5 REM Using mouse to adjust sound 
10 WAVE 1 

20 FULLW 2: CLEARW 2 
30 A# = GB: CO = 1 
40 CONTROL = PEEK (A#) 

50 GLOBAL = PEEK (A#+ 4) 

60 GINTIN = PEEK (A#+ 8) 

70 GINTOUT = PEEK (A#+12) 

80 ADDRIN = PEEK (A#+ 16) 

90 ADDROUT = PEEK (A# + 20) 

100 GEMSYS (79) 

The computer receives the mouse's X- and Y-coordinates and stores them 
in the variables X and Y, respectively. These values can then be used as the 
note and octave arguments in the SOUND statement: 

110 X = PEEK (GINTOUT + 2): Y = PEEK (GINTOUT + 4) 

120 SOUND 1,15,INT (X/56) + 1,INT (Y/27) + 1,0: GOTO 100 

This next program, which is similar, lets you move the mouse around to 
change the period and press the Alternate key to get a different shape. 


5 REM Using mouse to change period 
10 WAVE 1: SHAPE = 8 
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20 FULLW 2: CLEARW 2 
30 A# = GB: CO = 1 
40 CONTROL = PEEK (A#) 

50 GLOBAL = PEEK (A#+ 4) 

60 GINTIN = PEEK (A#+ 8) 

70 GINTOUT = PEEK (A#+ 12) 

80 ADDRIN = PEEK (A# + 16) 

90 ADDROUT = PEEK (A# + 20) 

100 GEMSYS (79) 

110 GOTOXY 1,1,: PRINT “Period = "X + Y", and shape = ";SHAPE 
120 X = PEEK (GINTOUT + 2): Y = PEEK (GINTOUT + 4) 

130 IF PEEK (GINTOUT + 8) = 8 THEN SHAPE = SHAPE + 1: IF 
SHAPE >14 THEN SHAPE = 8 
140 WAVE 8,1,SHAPE,X + Y: GOTO 100 


Uses of Sounds 

Most people consider a computer’s sound features to be useful only in 
games. It would be difficult to argue that games aren’t the most important 
use for sound, but there are plenty of other applications. You could include 
sound in a business program so that certain tones prompted the user to 
enter data while other sounds signaled that an error was made. An educa¬ 
tional program might include a cheery little tune when the student got a 
problem right, and for very young children sound effects and musical rendi¬ 
tions would help keep them interested in the material on the screen. Finally, 
you could use the ST as a serious musical instrument if you are interested in 
translating sheet music into computerized renditions or perhaps even writing 
an original song yourself with the help of your ST. The built-in MIDI port 
makes connecting advanced synthesizers to your ST very easy. One popular 
and inexpensive choice is the Casio CZ-101, which costs about $300. 

You might want to try one of the following projects or come up with some 
of your own: 

■ Try making a library of sounds by experimenting with different values in 
the WAVE and SOUND statements. Every time you run across something 
interesting, be sure to write down all the necessary numbers. You might 
make this task easier on yourself by writing a program that helps you find 
sounds. 

■ Write a sound-drawing program in which you can use the mouse to draw 
a sound graph. When the graph is complete, the computer should then 
be able to play the sound at the speed you specify. 

■ Program a sound-maker utility that lets you specify the envelope, period, 
note, octave, and other values to produce the sound you describe. 
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Perhaps you could add graphics; for instance, when the program asks for 
the shape, the computer could display all the possible waveforms on the 
screen along with their numbers. 

■ Translate a favorite piece of sheet music into a program that plays it. You 
might even want to use two or three voices for a complex musical piece, 
although that can certainly get tricky. Try using the WAVE statement to 
give the sound the appropriate characteristics, based on the type of song 
you are programming. 

Although ST BASIC has only two commands for making sounds and 
music, they are both powerful and versatile. This makes programming a lot 
easier for you. Once you have mastered the details of these two commands 
and learned how to use them effectively by experimenting with them, you’ll 
find programming a lot more enjoyable, and the quality of your programming 
efforts will improve as well. 
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Two keywords in ST BASIC—VDISYS and GEMSYS—give you access to 
such a wide variety of functions that they almost constitute separate lan¬ 
guages. In this chapter you’ll study one of these languages in detail—the 
functions of GEM’s Virtual Device Interface, or VDI, which can be incorpo¬ 
rated into your BASIC programs with the VDISYS statement. Many of these 
functions are faster and easier to use than their BASIC equivalents; others 
have no direct equivalents at all. (GEMSYS, which gives access to the GEM 
Application Environment System, or AES, is much less important to the 
BASIC programmer and will only be touched on briefly, at the end of this 
chapter.) Although VDISYS is one of the most powerful statements in ST 
BASIC, the VDI is left almost completely unexplained in Atari’s documenta¬ 
tion. It will help if you have some general background on the system before 
you learn the particular functions. 


The VDISYS Instruction 

Some of the functions you will read about in this chapter may seem unim¬ 
portant, since they can be done (perhaps more easily) in BASIC. For 
example, you would probably find it easier to use the CIRCLE statement 
rather than use up to three or four lines to draw a circle using the equivalent 
VDI function. However, the VDI and AES offer these advantages: 

■ Once you have put all the parameters into memory (in the case of a 
circle, the center, color, and radius), you can alter just one characteristic 
and do the routine over again for a different effect. You could, for 
instance, change the radius and draw a circle that is smaller or larger 
than the previous one without issuing all the other arguments again. 

■ Many of the functions in VDI have no ST BASIC equivalents. Because 
these functions are built into ROM, you have a whole library of fast, easy- 
to-use features that are inaccessible with any other ST BASIC method. 

■ Your understanding of the computer will be enhanced once you have 
used the built-in routines for a while. Comprehending POKE, bytes, 
addresses, and other elements of these control codes will give you a 
stronger foundation for understanding how the ST works internally. This 
will make learning other languages and more advanced techniques much 
easier for you. 

The VDI routines use several variable names that hold specific memory 
addresses the ST can use. You don’t need to set these variables to any 
value, since the computer always retains their correct values in memory. The 
variables that establish the VDI parameters are 

CONTRL (establishes the control array being used) 

INTIN (number of input parameters) 
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PTSIN (input point coordinates) 

INTOUT (output parameters) 

PTSOUT (output point coordinates) 

By using these variable names (and incrementing them, in expressions 
such as INTIN+ 2 or CONTRL + 6), you can use POKE at certain memory 
locations to establish the parameters of a VDI call without being concerned 
about determining memory addresses yourself. 


VDISYS Input 


POKE 

The most important thing you’ll need to know when using the VDISYS 
instruction is the significance of the ST BASIC keyword POKE. I used 
this instruction briefly in Chapter 4, to enter a new color palette into the com¬ 
puter’s memory. In general, memory in a computer consists of contiguous cells, 
measured in bytes. You can put a value (from 0 to 255) into a cell with POKE. 
(The format of POKE was given in Chapter 4.) To put the number 100 into byte 
230, type POKE 230,100. POKE is useful since it gives the computer a fast and 
regular way to retrieve information; a specific area in memory, for example, might 
consistently hold the value for the screen color, and the computer can monitor 
that byte for color changes from the programmer. 

POKE is important when using VDISYS because you’ll usually need to 
specify from five to seven different bytes of memory to tell the computer 
exactly what you want to do. In ST BASIC, you use arguments to get some¬ 
thing done; for instance, a circle with a center at (50,60) and with a radius of 
35 could be drawn by typing 

CIRCLE 50,60,35 

With system instructions, however, you would use POKE to enter the different 
values (and a few values that never change for the function) into specific 
bytes of memory. Doing this is very easy, since you only have to read the 
information about the keyword and follow a set pattern when writing the pro¬ 
gram that uses the function. 


VDISYS Standards 

The input parameters for the VDISYS statement are relatively consistent; 
although different routines have different numbers for the various memory loca¬ 
tions, here’s a list of what you can usually expect some of the memory 









158 


UNDERSTANDING ATARI ST BASIC PROGRAMMING 


locations to be used for: 

CONTRL (0) The code for the VDISYS function you are going to use is 
stored in CONTRL (0). For example, the control code to set the color for a 
filled shape is 25, so CONTRL (0) = 25 would tell the computer to use that 
routine. 

CONTRL (5) The Generalized Drawing Primitive (GDP) number is stored 
in location CONTRL (5). GDP functions are used to put graphics on the 
screen, and the different numbers stored with POKE CONTRL +10 will tell 
the computer which graphics function to use. 

PTSIN For the specific arguments for a graphics function, the computer 
looks in the area determined by the PTSIN value. If you were drawing a line 
on the screen, you might enter the two X,Y coordinates in PTSIN, PTSIN+ 2, 
PTSIN+ 4, and PTSIN+ 6. 

Most VDISYS routines require more POKE statements than the few listed 
above. Also remember that the values for PTSIN, INTIN, CONTRL, and other 
variable names used directly with VDISYS are constants; the Atari ST has 
these values built-in to make programming easier for you. Using POKE CON¬ 
TRL,2 is much easier than trying to figure out exactly where in memory you 
should put a certain number. 


A Sample VDISYS 

For example, here is the information you need for Control Code 11, which 
draws a circle on the screen: 

CONTRL (0) = 11 
CONTRL (1) = 3 
CONTRL (3) = 0 
CONTRL (5) = 4 

PTSIN (0) = X-coordinate of the center 
PTSIN (1) = Y-coordinate of the center 
PTSIN (4) = Radius 

Now that you have this information, you have only to type the required 
POKE statements to get the circle you want. Here is the format for each of 
these components: 

POKE VDI variable + number*2,value 

The VDI variable can be CONTRL, PTSIN, or INTIN; the number is the num¬ 
ber in parenthesis following the VDI variable—it is important to multiply it by 
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two, because the entries are stored in words (16 bits), not bytes; and the 
value is the number you want to put into that memory location. Compare the 
original information with what you need to type to see the correlation: 

CONTRL (0) = 11 
POKE CONTRL+ 0,11 

Actually, there’s no need to type +0 when the value of the number in 
parentheses is 0. You could type POKE CONTRL, 11 to obtain the same 
result. 

Here’s a complete program that draws a circle with a center of (100,30) 
and a radius of 20; notice that the REM statements contain the input informa¬ 
tion I used to get the POKE statements: 

4 REM Circle 

6 DEF SEG = 0 

8 COLOR 1,1,1,1,1: FULLW 2 

10 POKE CONTRL.11: REM CONTRL (0) = 11 
20 POKE CONTRL+ 2,3: REM CONTRL(1) = 3 
30 POKE CONTRL+ 6,0: REM CONTRL (3) = 0 
40 POKE CONTRL+ 10,4: REM CONTRL (5) = 4 
50 POKE PTSIN,100: REM PTSIN (0) = X-coordinate of center 
60 POKE PTSIN+2,30: REM PTSIN (1) = Y-coordinate of center 

70 POKE PTSIN+8,20: REM PTSIN (4) = Radius 

80 VDISYS (1) 

Notice the first statement, DEF SEG = 0. The DEF SEG statement, whose 
format is 

DEF SEG = numeric expression 

is used in conjunction with POKE (and the related PEEK). The numeric 
expression tells the computer two things: the number of bytes to input or 
read by subsequent POKE or PEEK statements, and any offset to the 
address specified in those statements. The value of 0 used in this statement 
tells the computer to have POKE operate on two bytes at a time and to use 
no offset. 

Notice also the last command, in line 80: VDISYS (1). This turns on the 
function you’ve just pointed to in memory. Whether you are activating a func¬ 
tion to get a result or to examine a particular part of memory, remember to 
type VDISYS (1) to run the routine. 

As long as you remember to use the correct variable name (PTSIN, INTIN, 
or CONTRL) and you consistently multiply the integer in parentheses by two 
to determine how much to add to the variable name, your VDISYS programs 
should work properly. 
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VDISYS Output 


Taking a Peek 

One last thing to know is that you will sometimes be able to gain important 
information from the computer’s VDISYS function by examining the contents 
of a memory location rather than putting a value into one. You can do this 
with the PEEK statement which, like POKE, deals with a specific byte in 
memory. The format of PEEK is 

PEEK (address) 

where address is the memory location of the byte you want to examine. 
PRINT PEEK (400), therefore, would tell you what the value at location 400 
in the computer’s memory contained (depending on the preceding DEF SEG 
statement). 

With VDISYS routines, PEEK is often helpful for finding such information 
as the coordinates of the graphics cursor on the screen, the color being 
used, the shape currently being drawn, and so on. If you are using a partic¬ 
ular VDISYS function—and have typed VDISYS (1) to activate it—you can 
sometimes check certain parts of memory for information. Whenever you see 
an Output section listed in any Control Code description, use PEEK to exam¬ 
ine the word listed simply by using the variable name and adding the num¬ 
ber in parentheses (again, multiplied by two): 

PEEK (VDI variable + number*2) 

Be sure to type DEF SEG = 0 first. For instance, suppose you wanted to 
examine PTSOUT (4). Since 4 times 2 equals 8, you would type 

PRINT PEEK (PTSOUT+ 8) 

If you wanted to put the contents of INTOUT (5) into variable X, you would type 

X = PEEK (INTOUT+ 10) 

As with any VDISYS function, you must activate it with VDISYS (1) before you 
can examine any information. 


Control Codes 

What follows is a list of the most important GEM functions that you can 
access with the VDISYS statement. The first section is for graphics-oriented 
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functions, and the second section is for text functions. These are in numerical 
order so you can use this chapter as a reference guide. Feel free to go 
through it in any order, since you already have the information you need to 
activate any one of these functions. 


Control Codes for VDISYS Graphics Functions 


Control Code 6: Polyline 

The polyline function draws a figure using the points you specify. The best 
analogy for this routine is a dot-to-dot drawing, since the computer accepts 
information for various pixel points on the screen and then draws lines from 
point to point, beginning with the first point you entered and ending with the 
last. It’s important to remember that the computer does not automatically 
close up the area based on the points you’ve specified. If you give the com¬ 
puter the three points of a triangle, it will draw from the first point to the 
second to the third, but it will not complete the triangle by going again to the 
first point; you need to specify the first point again (as the fourth point) to 
have the computer complete the triangle, as shown in Figure 6.1. 

Memory Locations 

CONTRL (0) = 6 

CONTRL (1) = n (number of coordinate pairs) 


Figure 6. /: Four points 
are needed to finish 
the triangle. 
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CONTRL (3) = 0 
PTSIN (0) = First X-coordinate 
PTSIN (1) = First Y-coordinate 
PTSIN (2) = Second X-coordinate 
PTSIN (3) = Second Y-coordinate 


PTSIN (n-1) = Last X-coordinate 
PTSIN (n) = Last Y-coordinate 

Program Example The following program prints colored lines all over the 
screen. After the line color is set randomly, the FOR. . .NEXT loop in line 30 
counts four random pairs of pixel points and uses POKE to specify the 
proper locations. Notice how I use STEP 2 with the loop so that 
the coordinate pairs can be put into memory with POKE, as PTSIN (1*2) and 
PTSIN (l*2) + 1; the X-coordinate goes into the first location, and the 
Y-coordinate goes into the second location. Each time the loop is complete, 
the VDISYS (1) is activated to display the lines, then a GOTO 30 statement 
causes the loop to be repeated endlessly Soon after you run this program, 
the entire screen will be filled with colored lines. Figure 6.2 shows the lines, 
but not the color. 

2 REM Using the polyline function to fill the screen 

4 DEF SEG = 0 


Figure 6.2: Using the 
polyline function to fill 
the screen 
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6 FULLW 2: CLEARW 2 
10 POKE CONTRL,6 
15 POKE CONTRL +2,5 
20 POKE CONTRL +6,0 

30 COLOR 1,1 ,RND* 15: FOR 1=0 TO 8 STEP 2 
40 POKE PTSIN+(I*2),RND*250 
50 POKE PTSIN + (l + 1)*2,RND*150 + 20 
60 NEXT 
70 VDISYS (1) 

80 GOTO 30 


Control Code 7: Polymarker 

If you want to draw points on the screen—for something like a scatter 
graph or pinpointing locations on a map—use the polymarker function. You 
can specify all the X,Y coordinates that you want, and as you’ll discover later 
in this chapter, you can change these points into other shapes, such as stars 
and crosses, with another VDISYS function. 

Memory Locations 

CONTRL (0) = 7 

CONTRL (1) = n (number of coordinate pairs) 

CONTRL (3) = 0 

PTSIN (0) = X-coordinate of first point 
PTSIN (1) = Y-coordinate of first point 
PTSIN (2) = X-coordinate of second point 
PTSIN (3) = Y-coordinate of second point 


PTSIN (n-1) = Last X-coordinate 
PTSIN (n) = Last Y-coordinate 


Control Code 8: Display Text on Screen 

Although you can print text easily with the PRINT statement, you can print 
graphic text using this VDISYS function. Graphic text is much more versatile 
than normal text: you can print in a wide variety of different styles, justify the 
text, rotate it in different directions, and perform many other functions to 
make your text printing more flexible. 

Memory Locations 

CONTRL (0) = 8 
CONTRL (1) = 1 
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CONTRL (3) = n (number of characters, including spaces, you want to print) 
INTIN (0) = ASCII code for first character (see Appendix D) 

INTIN (1) = ASCII code for second character 


INTIN (n) = ASCII code for last character (out of n characters) 
PTSIN (0) = X-coordinate where text should begin printing 
PTSIN (1) = Y-coordinate where text should begin printing 


Control Code 9: Filled Polygon 

Similar to the polyline function (routine 6), the filled polygon function will 
draw a polygon based on the points you specify and then fill it with the cur¬ 
rent fill color. Unlike the polyline function, the filled polygon does not require 
you to close up the figure you are drawing by specifying the starting point 
twice; the computer will automatically draw a straight line from the last 
point you specify to the first. 

Memory Locations 

CONTRL (0) = 9 

CONTRL (1) = n (number of pixel points specified) 

CONTRL (3) = 0 
PTSIN (0) = First X-coordinate 
PTSIN (1) = First Y-coordinate 
PTSIN (2) = Second X-coordinate 
PTSIN (3) = Second Y-coordinate 


PTSIN (n -1) = Last X-coordinate 
PTSIN (n) = Last Y-coordinate 

Program Example Here is a sample program that draws randomly 
colored five-pointed polygons; the computer specifies five random pairs of 
numbers to establish the five pixels, then the VDISYS statement makes the 
polygon appear on the screen. By going back to line 30, the program can 
select another random color and display another polygon; it repeats this loop 
indefinitely. Figure 6.3 shows a sample of its output. 

2 REM Filled polygons 

4 DEF SEG = 0 

6 FULLW 2: CLEARW 2 

10 POKE CONTRL,9 
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Figure 6.3: Filled 
polygons 



15 POKE CONTRL + 2,5 
20 POKE CONTRL + 6,0 

30 COLOR 1 ,RND* 15,1: FOR 1 = 0 TO 8 STEP 2 
40 POKE PTSIN+(I*2),RND*250 
50 POKE PTSIN+(l + 1)*2,RND*150 + 20 
60 NEXT 
70 VDISYS (1) 

80 GOTO 30 

Control Code II: Generalized Drawing Primitive (GDP) 

Even though the GDP functions are under a single code—CONTRL 
(0) = 11— you can draw a wide variety of shapes and lines by modifying the 
values stored in specific areas of the computer’s memory. The complete 
memory locations are listed below, but for simplicity’s sake, select the partic¬ 
ular object you want to draw and use the codes listed under that object’s 
description. 

Memory Locations 

CONTRL (0) = 11 

CONTRL (1) = n (number of coordinate pairs you use in drawing the routine) 
CONTRL (3) = 0 

CONTRL (5) = Number of the shape you want to draw: 

1 Filled rectangle 

2 Arc (semicircle) 
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3 Filled circle segment (as in a pie chart) 

4 Filled circle 

5 Filled ellipse 

6 Elliptical arc 

7 Filled elliptical segment 

8 Rectangle with rounded edges 

9 Filled rectangle with rounded edges 
PTSIN (0) = First X-coordinate 

PTSIN (1) = First Y-coordinate 
PTSIN (2) = Second X-coordinate 
PTSIN (3) = Second Y-coordinate 


PTSIN (n-1) = Last X-coordinate 
PTSIN (n) = Last Y-coordinate 

INTIN (0) = Starting point for arcs or segments (measured in tenths of 
degrees) 

INTIN (1) = Ending point for arcs or segments (measured in tenths of 
degrees) 


GDP I: Rectangle 

The filled rectangle is probably the simplest GDP object; specify the X,Y 
coordinates for the upper left and lower right corners of the rectangle, then 
use the VDISYS statement to make it appear. If you want the rectangle to be 
a particular color, use the COLOR statement to change the line color. 

Memory Locations 

CONTRL (0) = 11 
CONTRL (1) = 2 
CONTRL (3) = 0 
CONTRL (5)= 1 

PTSIN (0) = X-coordinate of upper left corner 
PTSIN (1) = Y-coordinate of upper left corner 
PTSIN (2) = X-coordinate of lower right corner 
PTSIN (3)=Y-coordinate of lower right corner 

Program Example The next program draws a colored bar graph using 
the rectangle routine. First the computer clears the screen, reseeds the 
random-number generator, and draws the horizontal lines for the graph: 

5 REM Colored bar graph 

7 DEF SEG = 0 

10 FULLW 2: CLEARW 2: RANDOMIZE 5 






167 


ADVANCED GRAPHICS AND TEXT PROGRAMMING 


20 FOR Y = 0 TO 160 STEP 10 
30 LINEF 0,Y,300,Y 
40 NEXT: COLOR 1,1,1 

Next, the program sets up the drawing primitive and begins the loop that 
draws the bar across the screen (starting at X-coordinate 10 and, moving in 
steps of 20, ending at 270): 

50 POKE CONTRL.11 

60 POKE CONTRL + 2,2 

70 POKE CONTRL + 6,0 

80 POKE CONTRL +10,1 

90 FOR X= 10 TO 270 STEP 20 

Now the POKE statement puts the X value in as the X-coordinate for the 
upper left corner, a random number (between 20 and 140) for the upper left 
Y-coordinate, X+10 for the lower right X-coordinate, and 160 (the bottom of 
the graph) for the lower right Y-coordinate. This draws a bar 10 pixels wide, 
which starts at the bottom of the graph and goes to a random point. 

100 POKE PTSIN,X 

110 POKE PTSIN + 2,RND*120 + 20 

120 POKE PTSIN+4.X + 10 

130 POKE PTSIN +6,160 

140 COLOR 1,RND*15,1 

150 VDISYS (1) 

160 NEXT 
170 GOTO 170 


GDP 2 and 3: Arc and Segment 

If you want to draw a piece of a circle, GDP 2 will draw the arc starting 
and ending at the angles you specify. Keep in mind that the angles are in 
tenths of degrees, so if you wanted the arc to start at 100 degrees and end 
at 164.5 degrees, you would use the figures 1000 and 1645. (To figure out 
what the degrees mean in reference to the whole circle, see the CIRCLE 
statement in Chapter 4.) 

GDP 3 works in exactly the same way, except that it draws a wedge from 
a solid circle, like a pie slice. GDP 3 would probably be most useful in a pro¬ 
gram that draws pie graphs. 

Memory Locations 

CONTRL (0) = 11 
CONTRL (1) = 4 
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CONTRL (3) = 2 

CONTRL (5) = 2 for arc, 3 for segment 
INTIN (0) = Starting point (in tenths of degrees) 

INTIN (1) = Ending point (in tenths of degrees) 

PTSIN (0) = X-coordinate of center 
PTSIN (1) = Y-coordinate of center 
PTSIN (2), (3), (4), (5), and (7) = 0 
PTSIN (6) = Radius (in pixels) 

Program Examples The following sample program draws random solid 
wedges with the same center and radius; the result is a dizzying display of 
colored segments that sometimes appear to spin in the solid circle that is 
formed from the random wedges. First, the basic elements of the routine are 
put into memory using POKE statements: 

4 REM Random solid wedges 
7 DEF SEG = 0 
10 FULLW 2: CLEARW 2 
20 POKE CONTRL,11 
30 POKE CONTRL+ 2,4 
40 POKE CONTRL+ 6,2 
50 POKE CONTRL+ 10,3 
60 POKE PTSIN, 150 
70 POKE PTSIN+ 2,90 

80 FOR X = 2 TO 7: POKE PTSIN+(X*2),0: NEXT 
90 POKE PTSIN+ 12,50 

The part of the program that draws the random wedges simply puts two 
values into memory: the starting and ending angles for the wedge. VDISYS 
(1) draws the wedge, the COLOR statement changes the color of the wedge 
randomly, and GOTO 100 restarts the routine. Notice that lines 100 and 110 
both use the formula 100*(RND*36) to get a random angle value between 
100 and 3600: 

100 POKE INTIN,100*(RND*36) 

110 POKE INTIN+ 2,100*(RND*36) 

120 VDISYS (1): COLOR 1,RND*15 + 1 
130 GOTO 100 

~GDP~4TSoiid~Clrde 

Memory Locations 

CONTRL (0) = 11 
CONTRL (1) = 3 
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CONTRL (3) = 0 
CONTRL (5) = 4 

PTSIN (0) = X-coordinate of center 
PTSIN (1) = Y-coordinate of center 
PTSIN (2), (3), and (5) = 0 
PTSIN (4) = Radius (measured in pixels) 

Program Examples The next sample program prints solid green circles in 
a regular pattern by using two nested FOR. . .NEXT loops and entering the 
values from these loops into the PTSIN areas. 

4 REM Solid green circles 
7 DEF SEG = 0 
10 FULLW 2: CLEARW 2 
20 COLOR 1,3,1 
30 POKECONTRL.il 
40 POKE CONTRL+ 2,3 
50 POKE CONTRL+ 6,0 
60 POKE CONTRL+ 10,4 
70 FOR X = 25 TO 575 STEP 50 
80 FOR Y = 50 TO 150 STEP 25 
90 POKE PTSIN,X 
100 POKE PTSIN+ 2,Y 
110 POKE PTSIN+ 8,10 
120 VDISYS (1) 

130 NEXT Y: NEXT X 


Here’s an example that prints random circles and changes the color after 
each VDISYS statement: 

4 REM Random circles 
7 DEF SEG = 0 
10 FULLW 2: CLEARW 2 
20 POKECONTRL.il 
30 POKE CONTRL+ 2,3 
40 POKE CONTRL+ 6,0 
50 POKE CONTRL+ 10,4 
60 POKE PTSIN,150 
70 POKE PTSIN+ 2,90 

80 FOR X = 2 TO 5: POKE PTSIN+ (X*2),0: NEXT 
90 POKE PTSIN+8,RND*70 
100 VDISYS (1): COLOR 1,RND*15 + 1 
110 GOTO 90 
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By using the same center point with several colored circles, you can 
create a picture that looks like an archery target. This program prints eight 
circles, each with a different color but the same center. Notice that the loop 
goes backwards from 8 to 1; this is to preserve each of the circles as they 
are drawn, because if you drew the smallest circle first, each circle would be 
covered by the larger circle that followed it. 

5 REM Archery target 
10 FULLW 2: CLEARW 2 
20 POKECONTRL.il 
30 POKE CONTRL + 2,3 
40 POKE CONTRL + 6,0 
50 POKE CONTRL +10,4 
60 POKE PTSIN.150 
70 POKE PTSIN +2,75 
80 FOR C = 8 TO 1 STEP -1 
90 COLOR 1,C 
100 POKE PTSIN+8,C*7 
110 VDISYS (1) 

120 NEXT 
130 GOTO 130 


GDP 5: Filled Ellipse 

The ellipse requires two radii—one for the X-axis and another for the 
Y-axis—and because GDP 5 draws a filled ellipse, use the COLOR statement 
to specify which color you want the solid ellipse to be. 


Memory Locations 

CONTRL (0)=11 
CONTRL (1) = 2 
CONTRL (3) = 0 
CONTRL (5) = 5 

PTSIN (0) = X-coordinate of center 
PTSIN (1) = Y-coordinate of center 
PTSIN (2)=X-axis radius 
PTSIN (3) = Y-axis radius 


Program Examples The first sample program for GDP 5 draws random 
ellipses on the screen by using a constant center point, but changing both 
the radius and the color for each new ellipse. As you can see in Figure 6.4, 
an interesting pattern soon develops as the ellipses overlap one another. 
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Figure 6.4: Random 
ellipses, overlapping 
one another 



5 REM Random ellipses overlap one another 
10 FULLW 2: CLEARW 2 
20 POKE CONTRL.,11 
30 POKE CONTRL + 2,2 
40 POKE CONTRL + 6,0 
50 POKE CONTRL +10,5 
60 POKE PTSIN.145 
70 POKE PTSIN +2,87 
80 POKE PTSIN+4,RND*100 
90 POKE PTSIN+6,RND*50 
100 VDISYS (1) 

105 COLOR 1,RND*15,RND*15 
110 GOTO 80 

The next program is a little more ordered; even though the center remains 
constant, the X-axis and Y-axis radii change gradually so that the first solid 
ellipse is tall and thin and the last solid ellipse is short and fat. The 
48 ellipses between those two are the transitional figures formed by the grad¬ 
ual growth of the X-axis radius and the gradual reduction of the Y-axis radius. 
Because the colors are random for each ellipse, the pattern, shown in Figure 
6.5, is sometimes referred to as a God's eye. 


5 REM The God's eye 
10 FULLW 2: CLEARW 2 
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Figure 6.5: The God's 
eye 



20 POKECONTRL.il 
30 POKE CONTRL +2,2 
40 POKE CONTRL + 6,0 
50 POKE CONTRL +10,5 
60 POKE PTSIN.145 
70 POKE PTSIN +2,87 
80 FOR R = 1 TO 50 

90 POKE PTSIN + 4,R: POKE PTSIN + 6,51 - R 
100 VDISYS (1) 

105 COLOR 1,RND*16 
110 NEXT 

Line 90 is the heart of the program, since the computer uses the FOR 
.NEXT variable R to determine both radii. The X-axis radius is equal to R, 
which means that it will grow from 1 to 50; the Y-axis is 51 - R, which means 
it will shrink from 50 to 1. 


GDP 6 and 7: Elliptical Arc and Elliptical Segment 

Elliptical arcs and segments are similar to circular arcs and wedges, 
including the fact that the starting and ending angles are measured in tenths 
of degrees. The only difference, of course, is the X-axis and Y-axis radii are 
not equal, so you can obtain warped arcs and wedges. 
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Memory Locations 

CONTRL (0) = 11 
CONTRL (1) = 2 
CONTRL (2) = 2 

CONTRL (5) = 6 for elliptical arc, 7 for elliptical segment 

INTIN (0) = Beginning angle of arc or segment 

INTIN (1) = Ending angle of arc or segment 

PTSIN (0) = X-coordinate of center 

PTSIN (1) = Y-coordinate of center 

PTSIN (2) = X-axis radius 

PTSIN (3) = Y-axis radius 

Program Examples Here’s a simple example of how this routine works. 
First, you issue the standard POKE statements: 

5 REM Elliptical arcs 

10 FULLW 2: CLEARW 2 

20 POKECONTRL.il 

30 POKE CONTRL+ 2,2 

40 POKE CONTRL+ 4,2 

50 POKE CONTRL+ 10,6 

To get a random radius for the ellipse, the computer selects a random 
X-coordinate between 30 and 250 (line 60) and a random Y-coordinate 
between 30 and 150 (line 70). A random X-axis radius between 1 and 30 is 
selected at line 80, and a random Y-axis radius between 1 and 25 is selected 
at line 90. Finally, the starting and ending angles are created at lines 100- 
110, and the arc is shown with the VDISYS (1) statement on line 120. 

60 POKE PTSIN.RND*220 + 30 
70 POKE PTSIN + 2,RND*120 + 30 
80 POKE PTSIN+4,RND*30 
90 POKE PTSIN+ 6,RND*25 
100 POKE INTIN,(RND*36)*100 
110 POKE INTIN+ 2,(RND*36)*100 
120 VDISYS (1): COLOR 1,1,RND*16 
130 GOTO 60 

The next program resembles the previous one, but it draws random ellipti¬ 
cal segments (which are solid rather than just simple arcs). Its output is 
shown in Figure 6.6. 

5 REM Random elliptical segments 
10 FULLW 2: CLEARW 2 
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20 POKECONTRL.il 
30 POKE CONTRL + 2,2 
40 POKE CONTRL +4,2 
50 POKE CONTRL +10,7 
60 POKE PTSIN,RND*220 + 30 
70 POKE PTSIN + 2,RND*120 + 30 
80 POKE PTSIN+4,RND*30 
90 POKE PTSIN+ 6,RND*25 
100 POKE INTIN,(RND*36)*100 
110 POKE INTIN+ 2,(RND*36)*100 
120 VDISYS (1): COLOR 1,RND*16 
130 GOTO 60 


GDP 8 and 9: Rounded Rectangle and Rounded Filled Rectangle 

These last two GDP functions draw a rectangle with rounded corners, one 
empty and one filled. 

Memory Locations 

CONTRL (0) = 11 
CONTRL (1) = 2 
CONTRL (3) = 0 

CONTRL (5) = 8 for rounded rectangle, 9 for rounded filled rectangle 
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PTSIN (0) = X-coordinate of upper left corner 
PTSIN (1) = Y-coordinate of upper left corner 
PTSIN (2) = X-coordinate of lower right corner 
PTSIN (3) = Y-coordinate of lower right corner 

Program Examples By using the rounded-rectangle function (GDP 8) and 
drawing a multitude of these shapes in the same area, you can create the 
pattern shown in Figure 6.7, which resembles a bird’s-eye view of a pyramid. 
The three-dimensional effect is interesting, and with this VDISYS function, it’s 
easy to produce 

5 REM Bird's-eye view of a pyramid 
7 DEF SEG = 0 
10 FULLW 2: CLEARW 2 
20 POKECONTRL.il 
30 POKE CONTRL +2,2 
40 POKE CONTRL + 6,0 
50 POKE CONTRL +10,8 
60 FOR X = 60 TO 130 STEP 4 
70 POKE PTSIN,X 
80 POKE PTSIN+ 2,X/2 
90 POKE PTSIN+4,250-X 
100 POKE PTSIN + 6,150 - X/2 


Figure 6.7: Bird's-eye 
view of a pyramid 
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110 VDISYS (1) 

120 NEXT 

By drawing solid rounded rectangles that are proportional to one another, 
you can make a marquee with the words Atari ST in the middle of it, as 
shown in Figure 6.8. The program begins by using POKE statements to 
identify the function that will be used. 

5 REM Marquee 
10 FULLW 2: CLEARW 2 
20 POKE CONTRL,11 

30 POKE CONTRL +2,2 

40 POKE CONTRL + 6,0 

50 POKE CONTRL + 10,9 

Now the computer draws seven solid rectangles (with rounded edges) by 
putting the changing value of X (used in a FOR. . .NEXT variable) into the 
areas determined by PTSIN. The coordinates for the upper left corner of 
the rectangle are (X — 15,X/2), and the lower right corner’s coordinates are 
(320-X.150-X/2). As X moves from 60 to 120 (in steps of 10), the rect¬ 
angle grows smaller, and the larger rectangles that were drawn earlier 
remain on the screen. 

60 FOR X = 60 TO 120 STEP 10 

70 POKE PTSIN,X-15 
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Figure 6.8: A marquee 
using the filled rounded 
rectangle function 
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80 POKE PTSIN+2.X/2 
90 POKE PTSIN+ 4,320 -X 
100 POKE PTSIN + 6,150 - X/2 
110 VDISYS (1): COLOR 1,RND*16 
120 NEXT: GOTOXY 13,5: PRINT "Atari ST" 

130 GOTO 130 

Now that the colorful marquee has been completed, the computer goes to 
column 13, row 5 and prints Atari ST. 


Control Code 14: Change the Red, Green, and Blue 

Levels of a Color 

If you found the procedure for changing the red, green, and blue levels of 
an ST BASIC color somewhat confusing, you will probably be glad to know 
that Control Code 14 is much easier to use than VARPTR. If you want to 
alter the color stored under a color number, use POKE INTIN with the color 
number you want to change, and POKE INTIN+ 2, INTIN+ 4, and INTIN+ 6 
with the red, green, and blue levels you want in the color (ranging from 0 to 
1000 for each input area). After you type VDISYS (1), that color number will 
now have the new color you specified, and you can use the new color by 
typing COLOR followed by the same color number. 

Memory Locations 

CONTRL (0) = 14 
CONTRL (1) = 0 
CONTRL (3) = 4 

INTIN (0) = Number of the color you want to change (see Table 4.1) 

INTIN (1) = Intensity of red level (0-1000) 

INTIN (2) = Intensity of green level (0-1000) 

INTIN (3) = Intensity of blue level (0-1000) 

Program Examples A solid circle is drawn near the middle of the screen 
in the following program, and the color it is made of (number 2) is changed 
with Control Code 14. Notice that even though the color is already on the 
screen, it is changed instantly with the VDISYS statement. 

5 REM Solid circle changes color 
7 DEF SEG = 0 
10 FULLW 2: CLEARW 2 
20 COLOR 1,2,2 
30 PCIRCLE 150,75,50 
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40 POKE CONTRL.14 
50 POKE CONTRL + 2,0 
60 POKE CONTRL + 6,4 
70 POKE INTIN,2 
80 POKE INTIN +2,RND*1000 
90 POKE INTIN+4,RND*1000 
100 POKE INTIN+ 6,RND*1000 
110 VDISYS (1): GOTO 80 


If you have enough time to see the 512 different colors the ST is capable 
of producing, run this next program. By using three FOR. . .NEXT loops 
(with rather large STEP values so you don’t have to wait too long), the com¬ 
puter moves through all the color levels. As the program is running, the red, 
green, and blue levels are displayed at the top of the screen so you can get 
an idea of the significance of the three numbers: 

5 REM Cycle through colors 
7 DEF SEG = 0 
10 FULLW 2: CLEARW 2 
20 COLOR 1,2,2 
30 PCIRCLE 150,75,50 
40 POKE CONTRL,14 
50 POKE CONTRL + 2,0 
60 POKE CONTRL + 6,4 
70 POKE INTIN,2 
80 FOR R=0 TO 1000 STEP 50 
90 FOR G =0 TO 1000 STEP 50 
100 FOR B = 0 TO 1000 STEP 50 
110 POKE INTIN+2,R 
120 POKE INTIN+4,G 
130 POKE INTIN+ 6,B 
140 GOTOXY 0,0: PRINT R,G,B 
150 VDISYS (1): NEXT: NEXT: NEXT: CLEARW 2 


Control Code 15: Change the Type of Line Drawn 

The BASIC LINEF statement and the VDISYS polyline function draw thin, 
solid lines on the screen, but you can adjust the type of lines drawn with this 
function. You use the POKE statement to put the number for the type of line 
you want into memory location INTIN, and later in this chapter you’ll learn 
how to define your own type of line pattern (which you can access by using 
POKE INTIN,7 in the program). 
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Memory Locations 

CONTRL (0) = 15 
CONTRL (1) = 0 
CONTRL (3)= 1 
INTIN (0) = Type of line: 

1 Solid line 

2 Long dashes 

3 Dotted line 

4 Dash, dot pattern 

5 Dashes 

6 Dash, dot, dot pattern 

7 User-defined (see Control Code 113) 

Program Examples The six different types of lines stored in memory are 
shown in Figure 6.9, which was produced by running the following program: 

5 REM Programmable line types 
7 DEF SEG = 0 
10 FULLW 2: CLEARW 2 
20 POKE CONTRL,15 
30 POKE CONTRL+ 2,0 
40 POKE CONTRL+ 6,1 
45 FOR C = 1 TO 6 


Figure 6.9: 

Programmable line 
types 
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50 POKE INTIN,C 
60 VDISYS (1) 

70 LINEF 10,10,250,100 
80 FOR D = 1 TO 500: NEXT: NEXT 


Control Code 16: Set Width of Lines Drawn 

The ST gives you further flexibility with the lines you draw by allowing you 
to change the width of subsequent lines. The POKE statement operates on 
the PTSIN area of memory with the width you want. You use VDISYS so that 
any other lines you draw will be in the new width. 

Memory Locations 

CONTRL (0) =16 
CONTRL (1)=1 
CONTRL (3) = 0 

PTSIN (0) = Width of lines drawn (measured in pixels; default=1) 

PTSIN (1) = 0 

Program Examples Here’s a short program that shows horizontal lines of 
different width (and different colors) drawn from the top to the bottom of the 
screen. The color number of the line is equal to its width (the three-pixel-wide 
line is drawn with COLOR 3, for instance), and the resulting screen display, 
shown in Figure 6.10, looks somewhat like a test pattern from television. 
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5 REM Changing line widths 
7 DEF SEG = 0 
10 FULLW 2: CLEARW 2 
20 POKE CONTRL,16 
30 POKE CONTRL + 2,1 
40 POKE CONTRL + 6,0 
50 FOR W = 1 TO 15: COLOR 1,1,W 
60 POKE PTSIN.W 
70 VDISYS (1) 

80 LINEF 10,W * 10,300, W *10 
90 NEXT 
100 GOTO 100 


Control Code 1 7 : Set Color of Lines 

Here’s a third line-modification function, which lets you select the color of 
your lines. You could use the COLOR statement in its place, but if you want 
a more "direct” function that is used as part of the VDI call, this one will 
have the same effect. 

Memory Locations 

CONTRL (0) = 17 
CONTRL (1) = 0 
CONTRL (3)= 1 

INTIN (0) = Color you want the lines to be (see Table 4.1) 


Control Code 18: Set Up Type of Polymarker 

You learned how to position polymarkers at specific points on the screen 
with Control Code 6. The polymarker need not be a single pixel, however, 
and this function lets you change the polymarker; it will still be centered at 
the point you specify. 

Memory Locations 

CONTRL (0) = 18 
CONTRL (1) = 0 
CONTRL (3)= 1 

INTIN (0) = Type of polymarker: 

1 Dot 

2 Cross 

3 Asterisk 
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4 Square 

5 Diagonal cross 

6 Diamond 


Program Example If you want to see the six different types of 
polymarkers displayed randomly, take a look at this sample program. The 
first lines start the FOR. . .NEXT loop that goes through the six polymarker 
types and uses the POKE statement to put into memory the values needed 
to change the type used: 

5 REM The six polymarker types 
7 DEF SEG = 0 

10 FULLW 2: CLEARW 2: FOR T = 1 TO 6 
20 POKE CONTRL,18 
30 POKE CONTRL +2,0 
40 POKE CONTRL +6,1 
50 POKE INTIN,T: VDISYS (1) 

Control Code 7 is then used to display the current polymarker type in nine 
random locations on the screen. The X-coordinates can range from 1 to 300, 
and the Y-coordinates can range from 30 to 150; the Y-coordinate’s minimum 
value is 30 to prevent the polymarkers from being displayed at the top of the 
screen, above the current window. 

60 POKE CONTRL,7 
70 POKE CONTRL +2,5 
80 POKE CONTRL +6,0 
90 FOR I = 1 TO 9 STEP 2 
100 POKE PTSIN + (I-1)*2,RND*300 
110 POKE PTSIN+ 1*2,RND*120 + 30 
120 NEXT 
130 VDISYS (1) 

140 NEXT 


Because the computer does not clear the Output window each time a new 
set of polymarkers is shown, the result, shown in Figure 6.11, is a display of 
all six types of polymarkers on the screen. 


Control Code 20: Set Color of Polymarkers 

The last polymarker function is Control Code 20, which alters the color of 
subsequent polymarkers. 
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Figure 6.11: The six 
polymarker types 
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Memory Locations 

CONTRL (0) = 20 
CONTRL (1) = 0 
CONTRL (3)= 1 

INTIN (0) = Color you want the polymarkers to be (see Table 4.1) 


Control Codes 23 and 24: Set a Pattern for the Fill 

Control codes 23 and 24 work together to tell the computer which pattern 
should be used for fill routines. Refer to the description of ST BASIC’s FILL 
statement in Chapter 4 if you aren’t sure how the fill patterns are determined. 
Once you know the two numbers for the fill pattern you want, enter the first 
one with Control Code 23 and the second one with Control Code 24; 
because both codes (and their respective POKE statements) are needed to 
determine the fill pattern, you will need to use two VDISYS calls: one after 
you’ve completed the input for Code 23 and one after Code 24. 

Memory Locations 

First Part 

CONTRL (0) = 23 
CONTRL (1) = 0 
CONTRL (3)= 1 
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INTIN (0) = Establishes the fill style you want to use: 

0 Hollow (no fill) 

1 Solid 

2 Pattern 

3 Hatch 

Second Part 

CONTRL (0) = 24 
CONTRL (1) = 0 
CONTRL (3)= 1 

INTIN (0) = 1 to 24 in the pattern mode and 1 to 12 in the hatch mode for fill 
patterns, as with the ST BASIC COLOR command (see Figure 4.6) 

Program Example Here’s a short program that draws a filled circle using 
the pattern 2,24. 

5 FULLW 2: CLEARW 2 
10 POKE CONTRL,23 

20 POKE CONTRL+ 2,0 

30 POKE CONTRL+ 6,1 

40 POKE INTIN,2: VDISYS (1) 

50 POKE CONTRL,24 

60 POKE CONTRL+ 2,0 

70 POKE CONTRL+ 6,1 

80 POKE INTIN,9 

90 PCIRCLE 150,75,30 


Control Code 25: Set Color for Filled Shape 

Use Control Code 25 if you want to change the color used in fill routines 
(whether you are using the FILL statement or something like PCIRCLE); you 
could just as easily specify the fill color with the second argument of 
COLOR. 

Memory Locations 

CONTRL (0) = 25 
CONTRL (1) = 0 
CONTRL (3) = 1 

INTIN (0) = Sets the color you want for the fill (see Table 6.1) 


Control Code 103: Fill Specified Area 

The function to fill a specified area is identical to ST BASIC’s FILL state¬ 
ment with one important difference: you can tell the computer the color of 
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Number 

Color 

0 

White 

1 

Black 

2 

Red 

3 

Green 

4 

Blue 

5 

Cyan 

6 

Yellow 

7 

Magenta 

8 

Gray 

9 

Black 

10 

Light Red 

11 

Light Green 

12 

Light Blue 

13 

Light Cyan 

14 

Light Yellow 

15 

Light Magenta 


the boundary where it should stop drawing. Suppose, for example, you had 
several concentric circles of different colors and you issued a FILL statement 
to start painting in the center; only the innermost circle would be filled with 
the color specified by the most recent COLOR statement. Control Code 103, 
on the other hand, would keep filling from the center point outward so that 
everything enclosed by the circle of the color you specified was filled. This 
VDISYS function is useful when you want to fill only a specific area and that 
area is completely bounded by a particular color (whether the color is in a 
square, a circle, or any other graphics object). 

Memory Locations 

CONTRL (0) = 103 
CONTRL (1) = 1 
CONTRL (3) = 1 

INTIN (0) = Number of the color where you want the computer to stop 
painting; see Table 6.1 

PTSIN (0) = X-coordinate of the point where you want to start painting 
PTSIN (1) = Y-coordinate of the point where you want to start painting 


Program Examples The following program is similar to the one described 
in the previous section: three concentric circles are drawn (each of a 
different color), and the first two are filled by Control Code 103 and VDISYS. 
The POKE INTIN,2 statement in line 90 tells the computer to stop painting 
once it reaches color number 2, and because the second circle is in this 








186 


UNDERSTANDING ATARI ST BASIC PROGRAMMING 


color, the entire area within the second circle (and consequently everything in 
the smallest one) is filled. The output is shown in Figure 6.12. 

5 REM Filling only the inner two circles 
10 FULLW 2: CLEARW 2 
20 FOR C = 3 TO 1 STEP -1 
30 COLOR 1,1 ,C 
40 CIRCLE 150,95,C*15 
50 NEXT 

60 POKE CONTRL.103 
70 POKE CONTRL + 2,1 
80 POKE CONTRL + 6,1 
90 POKE INTIN,2 
100 POKE PTSIN.150 
110 POKE PTSIN+2,95 
120 VDISYS (1) 


Control Code 108: Set the Style for the Ends of Lines 

You’ve already learned how to change the polymarker types so you can 
have more flexibility when plotting polymarkers. Control Code 108 also gives 
you more flexibility, since it lets you change the style of the ends of the lines 


Figure 6.12: Filling only 
the inner two circles 
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you draw. The default setting is simply a point, which makes the line look as 
if it has no special ends. By using this code, you can change the line ends 
to arrows, or you can make them rounded. 

Memory Locations 

CONTRL (0) = 108 
CONTRL (1) = 0 
CONTRL (3) = 2 

INTIN (0) = Style to use for the beginning of the line: 

0 Squared end (default setting) 

1 Arrow 

2 Rounded 

INTIN (1) = Style to use for the end of the line (use the same numbers as for 
beginning of line) 


Control Code 112: User-defined Fill Pattern 

If you want to program your own fill pattern, you can make a user-defined 
fill pattern of up to 16 two-byte words, with bit 15 of word 1 in the upper left 
corner of the pattern and bit 0 of word 16 in the lower right corner, as 
shown in Figure 6.13. You can make simpler fill patterns, though; suppose 
you wanted a fill pattern that was like a checkerboard. You would need to 
use only two words to show the computer the style you wanted. The first 
word would have the first bit on, the second off, the third on, and so on. The 
second word would be reversed, with the first bit off, the second on, the 
third off, and so on. In binary (where a pixel that is on equals 1 and one that 
is off equals 0), these two words would look like this: 

1010101010101010 

0101010101010101 

When you translate these binary numbers into decimal, the first one would 
be equal to 43690 and the second 21845. These two numbers would be the 
basis for your fill pattern, and along with using the memory locations listed 
below, you would use POKE to enter 43960 into INTIN and 21845 into 
INTIN+ 2. To activate this user-defined pattern, you would use Control Code 
23 so the computer would know to use style 4 (POKE INTIN,4). You can 
make more complex patterns with up to 16 sets of numbers; be careful 
when you calculate the decimal numbers from binary, however, since it’s 
easy to make a mistake. 

Memory Locations 

CONTRL (0) = 112 
CONTRL (1) = 0 
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Figure 6.13: A grid for 
fill patterns 
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15 BIT 0 



CONTRL (3) = 1 

INTIN (0) = First piece of data for pattern 
INTIN (1) = Second piece of data for pattern 


INTIN (15) = Last piece of data for pattern 


Control Code 113: Set Pattern for Type of Line 

You can also make a self-designed pattern for the lines you draw. You 
learned earlier how to make dotted lines, lines made of dots and dashes, 
and a few others with Control Code 15. If you need some other type of line, 
you have to figure out which pixels in the pattern are on (which means the 
bit is set to 1) and which are off (which means the bit is set to 0). Suppose 
you wanted a line made up of alternating dots and blank pixels; the 16 bits 
of its binary code would look like this: 

0101010101010101 

This binary number is equal to 21845 decimal, so you would specify POKE 
INTIN,21845 in addition to using the memory locations listed below. If you 
want to make the line solid again, use the pattern 

1111111111111111 

which equals 65535 decimal. 
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Memory Locations 

CONTRL (0) = 113 
CONTRL (1) = 0 
CONTRL (3) = 1 

INTIN (0) = Type of line (see Control Code 15) 


Control Code 114: Filled Rectangle 

ST BASIC doesn’t have a built-in rectangle instruction, but Control Code 
114 can serve that purpose, since it can draw a filled rectangle anywhere on 
the screen. Its color is determined by the fill color set in memory, and by 
using POKE statements to establish its upper left and lower right corners, 
you can make the filled rectangle appear with the VDISYS (1) statement. 

Memory Locations 

CONTRL (0) = 114 
CONTRL (1) = 2 
CONTRL (3) = 0 

PTSIN (0) = X-coordinate of rectangle’s upper left corner 
PTSIN (1) = Y-coordinate of rectangle’s upper left corner 
PTSIN (2) = X-coordinate of rectangle’s lower right corner 
PTSIN (3) = Y-coordinate of rectangle’s lower right corner 

Program Example The next program is an excellent example of the 
graphics potential in this one simple routine. The program simply draws 
several colored rectangles, but it positions each one slightly down and to the 
right of the last one drawn; this results in a fantastic-looking 
three-dimensional effect. First the basic POKE statements are put into 
memory for this control code: 

5 REM A three-dimensional drawing 
7 DEF SEG = 0 

10 FULLW 2: CLEARW 2 

20 POKE CONTRL,114 

30 POKE CONTRL+ 2,2 

40 POKE CONTRL+ 6,0 

The FOR. . .NEXT loop in line 50 will start moving the subsequent rect¬ 
angles down and to the right, since both the X- and Y-coordinates are sup¬ 
plemented by the value of X as it grows larger: 


50 FOR X = 20 TO 130 
60 POKE PTSIN,X 
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70 POKE PTSIN + 2.X 

80 POKE PTSIN + 4.X+40 

90 POKE PTSIN + 6.X + 20 

Finally, VDISYS (1) draws each rectangle on the screen, and the computer 
then randomly changes the color and continues the loop; once the loop is 
finished, the GOTO 130 in line 130 freezes the screen image so you can 
look at the drawing. Run the program to see the three-dimensional effect. 

100 VDISYS (1) 

110 COLOR 1,RND*15 + 1,RND*15 + 1 
120 NEXT 
130 GOTO 130 


Control Code 124: Mouse Checker 

The mouse checker uses areas of memory for which you can invoke 
PEEK to get useful information. Control Code 124 can tell you the position of 
the mouse pointer on the screen and the state of the left and right mouse 
buttons. For instance, PTSOUT (1) holds the current Y-coordinate of the 
mouse pointer; to store this into a variable called Y you would type 

Y = PEEK (PTSOUT+ 2) 

You can use mouse information in many applications for such purposes as 
drawing, having users select an option, or obtaining input for a game. 

Memory Locations 

CONTRL (0) = 124 
CONTRL (1) = 0 
CONTRL (3) = 0 

Output 

INTOUT (0) = State of mouse button: 

0 No buttons pressed 

1 Left button pressed 

2 Right button pressed 

3 Both buttons pressed 

PTSOUT (0) = X-coordinate of graphics cursor 
PTSOUT (1) = Y-coordinate of graphics cursor 

Program Example The following program checks the mouse constantly 
and displays the X- and Y-coordinates as well as the status of the button. 






191 


ADVANCED GRAPHICS AND TEXT PROGRAMMING 


First the numbers are put into memory with POKE, and VDISYS (1) activates 
the mouse-checking routine: 

5 REM Mouse position changes as values change 

7 DEF SEG = 0 

10 FULLW 2: CLEARW 2 

20 POKE CONTRL.124 
30 POKE CONTRL + 2,0: POKE CONTRL + 6,0 
40 X = PEEK(PTSOUT): Y = PEEK(PTSOUT + 2) 

50 BS = PEEK(INTOUT) 

60 VDISYS (1) 

Now the computer displays the values in memory; notice that the semi¬ 
colon in line 70 prevents the computer from skipping to the next line. The 
statement in line 80 makes the program go to the appropriate phrase to 
report the status of the button; BS + 1 is used instead of simply BS because 
BS equals 0 when neither button is pressed, and ON GOSUB responds only 
for numbers greater than or equal to 1: 

70 PRINT "X = "x", Y = "y", Button = 

80 ON BS + 1 GOSUB 100,110,120,130 

When the computer returns from the appropriate button status routine, it 
issues a question mark in line 90 (which is the equivalent of PRINT) to make 
the program jump to the next line, then it goes to line 40 to repeat the mouse¬ 
checking routine. The phrases in lines 100 through 130 tell you the status of 
the mouse button and then issue a RETURN to the place in the program 
where the GOSUB was located. The output is shown in Figure 6.14. 

90 ?: GOTO 40 

100 PRINT "Neither pressed": RETURN 
110 PRINT "Left pressed": RETURN 
120 PRINT "Right pressed": RETURN 
130 PRINT "Both pressed": RETURN 


Control Codes for VDISYS Text Functions 

Until now you’ve been learning about the graphics operations of VDISYS. 
There are also some text operations in GEM that allow you to use a special 
text mode, display words and numbers, move the cursor around the screen, 
and otherwise manipulate text information. 
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Figure 6.14: Mouse 
position changes as 
values change 
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Control Code 5: Enter Text Mode 

Use Control Code 5 to enter the text mode; remember that this mode is 
not like the regular PRINT statements in ST BASIC. It is graphics text that 
can be altered, and it does not work in conjunction with PRINT statements. 

Memory Locations 

CONTRL (0) = 5 
CONTRL (1) = 0 
CONTRL (3) = 0 
CONTRL (5) = 3 

Program Example This short program enters the text mode, erases the 
menu bar, and puts a cursor at the top of the screen: 

5 REM 

10 FULLW 2: CLEARW 2 
20 POKE CONTRL,5 

30 POKE CONTRL+ 2,0 

40 POKE CONTRL+ 6,0 

50 POKE CONTRL+ 10,3 

60 VDISYS (1) 


The text commands in Table 6.2 use all the same POKE statements as 
those listed in the Enter Text Mode except for CONTRL (5); they are listed 






















193 


ADVANCED GRAPHICS AND TEXT PROGRAMMING 


here for your reference, but remember to use all the POKE statements in 
addition to POKE CONTRL + IO. 


Control Code 21: Select Text Font 

There are 17 fonts (typestyles of text) available to you in the graphics text 
mode, and you can directly enter the number of the font you want with Con¬ 
trol Code 21. 

Memory Locations 

CONTRL (0) = 21 
CONTRL (1) = 0 
CONTRL (3)= 1 

INTIN (0) = Text font (see Table 6.3) 


Control Code 22: Set Color for Text 

You can substitute Control Code 22 for the first argument of the COLOR 
statement. Changing the color number with POKE INTIN will establish the 
color for subsequent text displayed on the screen. 


Table 6.2: Text 
commands 

used with CONTRL (5) 


CONTRL (5) = 

2 

Command 

Exit text mode 

4 

Move cursor up 

5 

Move cursor down 

6 

Move cursor right 

7 

Move cursor left 

8 

Move cursor to upper left corner (home location) 

9 

Erase text from cursor location to end of screen 

10 

Erase text from cursor location to end of line 

11 

Put cursor at specific row and column (similar to 
GOTOXY): 

CONTRL (5) = 11 

INTIN (0) = X location (row number of cursor) 

INTIN (1) = Y location (column number) 

12 

(Not used) 

13 

Turn on reverse video 

14 

Turn off reverse video 

15 

Get current cursor location: 

CONTRL (5) = 15 

INTOUT (0) = Output area of memory where 
row number is located 

INTOUT (1) = Output area of memory where 
column is located 














194 


UNDERSTANDING ATARI ST BASIC PROGRAMMING 


Table 6.3: Text fonts 
used with Control 
Code 21 


Number 

Text Font 

1 

Standard system font 

2 

Swiss 

3 

Swiss (thin) 

4 

Swiss (thin italic) 

5 

Swiss (light) 

6 

Swiss (light, italic) 

7 

Swiss (italic) 

8 

Swiss (bold) 

9 

Swiss (bold italic) 

10 

Swiss (heavy) 

11 

Swiss (heavy italic) 

12 

Swiss (black) 

13 

Swiss (black italic) 

14 

Dutch Roman 

15 

Dutch (italic) 

16 

Dutch (bold) 

17 

Dutch (bold italic) 


Memory Locations 

CONTRL (0) = 22 
CONTRL (1) = 0 
CONTRL (3)= 1 

INTIN (0) = Color you want the text to be (see Table 4.1) 


Control Code 106: Change Text Style 

Control Code 106 is one VDISYS text function that you can use with 
PRINT statements. There are 64 different styles of text available to you, and 
by translating a binary number into decimal, you can obtain the style of your 
choice with just a few program lines. With the INTIN command, you’ll have 
to translate from binary to decimal, as explained below. 

Memory Locations 

CONTRL (0) = 106 
CONTRL (1) = 0 
CONTRL (3) = 1 

INTIN (0) = Specifies which text style you want to use (in decimal, translated 
from binary): 

Bit 0 = 1 for thickened text, 0 for normal 
Bit 1 = 1 for light intensity, 0 for normal 
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Bit 2 = 1 for skewed text, 0 for normal 
Bit 3 = 1 for underlined, 0 for normal 
Bit 4 = 1 for outlined text, 0 for normal 
Bit 5=1 for shadowed text, 0 for normal 

To obtain the decimal number, first write down the Os and Is for the style 
you want in order so that bit 5 is at the left and bit 0 is at the right. For 
instance, suppose you wanted shadowed (bit 5 = 1), nonoutlined (bit 4 = 0), 
underlined (bit 3 = 1), nonskewed (bit 2 = 0), light intensity (bit 1 = 1), thick¬ 
ened (bit 0 = 1) text; your binary number would be 101011, which translates 
into decimal 43. POKE INTIN,43 would program this text style into memory. 

Program Example For a look at the 64 text styles available to you, run the 
following short program. The first screenful of output is shown in Figure 6.15. 

5 REM The ST's 64 text styles 
7 DEF SEG = 0 
10 FULLW 2: CLEARW 2 
20 POKE CONTRL +2,0 
30 POKE CONTRL,106 
40 POKE CONTRL + 6,1 
50 FOR 1=0 TO 63 
60 POKE INTIN,I 
70 VDISYS (1) 

80 PRINT "This is text style";l 


Figure 6. 15: A few of 
the ST's 64 text styles 
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85 PRINT 
90 NEXT 
100 GOTO 100 


Control Code 107: Change Text Heights 

For interesting effects, you can change the height of the text you are using 
(both graphic and normal text) with Control Code 107. Be careful when 
using this code, since all of your text (including commands or statements you 
type to return to normal text) will be distorted at some heights and might be 
difficult to read. 

Memory Locations 

CONTRL (0) =107 
CONTRL (1) = 0 
CONTRL (3) = 1 

INTIN (0) = Height of the character (in microns) 

Program Examples Try this next program to watch your text grow, and if 
you want to get normal text back on the screen, you might need to go back 
to GEM for a moment and then access ST BASIC again. The fastest way to 
do this is to type SYSTEM and press Return. 

5 REM Change text heights 
7 DEF SEG = 0 

10 FULLW 2: CLEARW 2 

20 POKE CONTRL,107 

30 POKE CONTRL+ 2,0 

40 POKE CONTRL+ 6,1 

45 FOR H = 1 TO 30 

50 POKE INTIN,H 

60 VDISYS (1) 

70 PRINT "Hello there; I'm ";H;" microns high!" 

80 NEXT 

90 POKE INTIN,12: VDISYS (1) 


VDISYS Text and Graphics 

The root of all these VDISYS functions is Control Code 1, which opens the 
GEM virtual workstation. You might try experimenting with this function to 
make needed changes that might otherwise require several VDISYS calls. 
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This function has a lot of power, but be careful with some operations (such 
as changing the width of the screen), since text and graphics might be dis¬ 
torted beyond usefulness if you set the screen width to an unusual value 
(such as 13). 


Control Code I : Open a Workstation 

Memory Locations 

CONTRL (0) = 1 
CONTRL (1) = 0 
CONTRL (3) = 11 

INTIN (1) = Line type (see Control Code 15) 

INTIN (2) = Polyline color (see Table 4.1) 

INTIN (3) = Polymarker type (see Control Code 18) 

INTIN (4) = Polymarker color (see Table 4.1) 

INTIN (5) = Text font (see Control Code 21) 

INTIN (6) = Text color (see Table 4.1) 

INTIN (7) = Interior style for fill routine (see Control Code 23) 

INTIN (8) = Index for fill routine (see Control Code 24) 

INTIN (9) = Color for fill pattern (see Control Code 25) 

Output Locations 

INTOUT (0) = Maximum screen width available (in pixels) 

INTOUT (1) = Maximum screen height (in pixels) 

INTOUT (6) = Number of line types available 
INTOUT (7) = Number of line widths 
INTOUT (8) = Number of marker types (up to 6) 

INTOUT (9) = Number of marker sizes 
INTOUT (10) = Number of typefaces available 
INTOUT (11) = Number of typeface patterns 
INTOUT (12) = Number of hatch styles 
INTOUT (13) = Colors available 

INTOUT (15) = 1 if bar function (GDP 1) is activated, 0 if not 

INTOUT (16) = 1 if arc function (GDP 2) is activated, 0 if not 

INTOUT (17) = 1 if segment slice (GDP 3) is activated, 0 if not 

INTOUT (18)= 1 if circle (GDP 4) is activated, 0 if not 

INTOUT (19) = 1 if ellipse (GDP 5) is activated, 0 if not 
INTOUT (20) = 1 if elliptical arc (GDP 6) is activated, 0 if not 
INTOUT (21)= 1 if elliptical segment (GDP 7) is activated, 0 if not 
INTOUT (22) = 1 if rounded rectangle (GDP 8) is activated, 0 if not 
INTOUT (23) = 1 if filled rounded rectangle (GDP 9) is activated, 0 if not 
INTOUT (24) = 1 to justify the text, 0 otherwise 
INTOUT (35) = 1 if you can produce color on the monitor, 0 if not 
INTOUT (39) = Number of colors available in palette (up to 16) 
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GEMSYS Operations 

GEMSYS, like VDISYS, uses a function that is stored in the computer’s sys¬ 
tem memory. There aren’t many GEMSYS operations that are useful to the 
ST BASIC programmer, but so you can get an idea of how one works, 
here’s a brief example using GEMSYS (79). 

The number in the parentheses after GEMSYS is called the operation code 
or opcode , and you can directly access any AES function by including its 
opcode. For any GEMSYS function, you first need to include these lines in 
your program to set up the necessary values: 

10 A# = GB 

20 CONTROL = PEEK(A#) 

30 GLOBAL = PEEK (A#+ 4) 

40 GINTIN = PEEK (A#+ 8) 

50 GINTOUT = PEEK (A#+ 12) 

60 ADDRIN = PEEK (A#+ 16) 

70 ADDROUT = PEEK (A# + 20) 

The following routine checks the mouse (just like the VDISYS command 
called Control Code 124). The information for this GEMSYS operation is 

Code = 79 

GINTOUT (1) = X-coordinate of mouse pointer 
GINTOUT (2) = Y-coordinate of mouse pointer 
GINTOUT (3) = State of mouse button: 

0 None pressed 

1 Left only 

2 Right only 

3 Both pressed 

With this information, you might write a few more lines to display immedi¬ 
ate information about the mouse’s X- and Y-coordinates and its button state: 

75 GEMSYS (29) 

80 PRINT "X-coordinate = ";PEEK (GINTOUT + 2 );", Y-coordinate = ";PEEK 
(GINTOUT + 4);", and button state = ";PEEK (GINTOUT+ 6) 

90 PRINT: GOTO 75 


The Power of Built-In Functions 

The wide variety of VDISYS operations available to you can make pro¬ 
gramming much easier. Some of these operations are unique to VDISYS 
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(such as the filled rectangle, which you can’t draw with any single ST BASIC 
keyword), and all of them are relatively fast and easy to use. Experiment with 
any of these routines that interest you, and try mixing them to make larger, 
more complex programs. It won’t be long before this newly discovered fea¬ 
ture of your ST computer becomes indispensable to your programming. 
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You’ve learned a lot so far about how to get the computer to do what you 
want it to do. However, everything you know about ST BASIC so far doesn’t 
go beyond the computer; that is, you’ve only learned how to send informa¬ 
tion to or get information from the screen and the keyboard. 

As you’re aware, your ST can do a lot more than put graphics on the 
screen and send music through its speaker. Like most other computers, it 
can use various peripherals to expand the power of the whole computer 
system: send and receive files with a modem, communicate with other com¬ 
puters in a network, and interact with advanced music synthesizers. 

There’s no need to get that involved in this book, however, since you 
should first learn how to work with the computer equipment you already 
have. The majority of this chapter will be devoted to using the disk drive, 
and I’ll also show you new ways to send output to your printer (if you have 
one) and get information from the keyboard. 


Input and Output Keywords 

Input is the information your computer receives—from the keyboard, the 
mouse, or the modem—and output is what the computer sends to other 
computers or devices—a disk drive, a printer, the monitor, or a modem. 


The INP Function 

One simple ST BASIC keyword that can receive input is INP. Its format is 
INP (port) 

This keyword can get a byte of information from a particular port and either 
tell you that byte’s value or indicate whether or not there is a byte at that 
port to be read. The port numbers are 0 for the printer, 1 for the RS232 
interface (the modem), 2 for the keyboard, and 3 for the MIDI (which is used 
when interfacing musical instruments to the computer). When you supply a 
positive number as the port, the computer will tell you the byte received from 
that port but it won’t prompt the user to input anything. A negative number 
indicates that you want to check the status of that port; if the status is 0, 
there is no character available from that port, whereas a status of -1 shows 
that there is a byte present. 

The first program in this chapter is a simple demonstration of the INP func¬ 
tion. When the computer encounters the assignment statement X=/A/P (2) at 
line 20, it will simply wait until you press any key. Once you press a key, the 
computer checks to see if the byte received is equivalent to a decimal value 
of 103 or 71 (the ASCII codes for g and G). If the byte received is not equal 
to either of these numbers, the computer asks you to press G instead. If this 
logical test is not met, however (that is, if G was the key you pressed), the 
computer thanks you for pressing G. 
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5 REM Press G when the computer requests it 
10 FULLW 2: CLEARW 2 
15 PRINT "Please press G now." 

20 X = INP (2) 

30 IF X< >103 AND X<>71 THEN PRINT "Please press G instead.": 
GOTO 20 

40 PRINT "Thanks ... I needed that." 

RUN 

Please press G now. 

T 

Please press G instead 
F 

Please press G instead 

G 

Thanks ... I needed that. 

Notice that INP works with ASCII codes, which makes it a useful keyword 
for programming. For instance, if you had a menu of choices on the screen, 
the computer would wait until you pressed a key before proceeding. 
Although INPUT works just as well as INP, the latter is a bit more elegant. 
You could also use INP in such things as games, where video-jaded players 
don't want to press a key and then Return every time they want to move 
their spaceship. 


The WAIT Statement 

A statement similar to INP is WAIT Its format is 
WAIT port, number 

which tells the computer to wait until a certain value (number) from the desig¬ 
nated port is received. 

If you wanted the computer to pause until the space bar (ASCII code 32) 
was pressed, you would type WAIT 2,32 (port 2 is the keyboard). Be careful 
when using WAIT, however, since the computer will pause until the number 
that WAIT is awaiting comes through the port; you will have to reset the com¬ 
puter if you get stuck with WAIT 


The OUT Statement 

The opposite of the INP function is the OUT statement, and its format is 
OUT port,byte 
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which sends a byte to a particular port. The byte you send can range from 0 
to 65535, and the port values you use are the same as those listed for the 
INP function. 


The LPRINT Statement 

One of the easiest peripherals to send information to is the printer. A 
printer is a useful device to have, since listing programs, printing letters and 
reports, and creating interesting printouts of graphics become possible. You 
can tell the printer to print something on paper as easily as you can tell the 
computer to print something on the screen, since the commands LPRINT 
and LLIST work almost exactly like the PRINT and LIST commands you are 
already familiar with. 

The format for LPRINT is 

LPRINT expression 

where expression can be a variable (N, G$, H(3), ILC), a string (“Hello 
there”, “**** PRINTER TEST ****”), a number, a mathematical equation, 
or anything else you could display by using PRINT. You can also use 
LPRINT USING just as you would use PRINT USING. 

The next sample program uses the LPRINT statement to print information 
on paper. The program begins by clearing the screen and printing 20 aster¬ 
isks that form the top of the box: 

10 REM Print a box 
20 LPRINT STRINGS (20,"*") 

To make a completed box, the program uses a FOR . . . NEXT loop and 
prints ten lines consisting of two asterisks each; the asterisks are printed 18 
spaces apart so that they form the left and right sides of the box (line 30). 
Finally, the LPRINT statement on line 40 completes the box by drawing its 
bottom: 

30 FOR 1 = 1 TO 10: LPRINT "*";SPACE$(18);"*": NEXT 
40 LPRINT STRINGS (20,"*") 


The LLIST Command and the LPOS (0) Function 

You could list the program above (or any ST BASIC program) to the printer 
by typing LLIST. LLIST works exactly like LIST and has the same format, 
which means that you can print specific groups of lines or just one line to the 
printer. 
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In addition, you can find the position of the printer’s print head by using 
the LPOS (0) function. X=LPOS (0) would store the location of the print head 
in X, and PRINT LPOS (0) would display it immediately. When the print 
head is at the extreme left, its position is 0, which means that for every char¬ 
acter space it moves to the right, its position increases by 1. 


The WIDTH Statement 

Another easy output statement is WIDTH, which changes the length of the 
lines that the computer uses with the screen or printer. The format of this 
statement is 


WIDTH expression 


where expression is the number of characters allowed on each line. You 
could also use the command 

WIDTH LPRINT 


which affects the printer instead of the screen. 

Changing the width of the screen does not change the size of the charac¬ 
ters displayed. Instead, it simply changes the number of characters allowed 
on any line. The normal width of the screen is 72 characters, so if you typed 


PRINT STRING$ (72,"I") 

the computer would fill up almost an entire line with exclamation points. If 
you had entered WIDTH 35, however, the same statement would print two 
lines of 35 exclamation points each; once the computer reached the thirty- 
fifth character of any line, it would skip to the next one. 

The program below shows how WIDTH affects the screen’s line length. 
First, 40 dollar signs are printed, and after the screen width is changed to 
20, the same STRINGS statement produces two lines of 20 dollar signs each: 

5 REM Changing width 
10 WIDTH 40 

20 PRINT STRING$(40,36) 

30 WIDTH 20 

40 PRINT STRING$(40,36) 

50 PRINT "See the difference?" 

60 WIDTH 40 

70 GOTO 70 
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You probably won’t be using many input/output commands, since the 
applications that require them (communications with a modem, for example) 
are advanced enough to justify the cost ($30 or so at current prices) of a 
good software package. On the other hand, you should make it a practice to 
use these commands wherever they are appropriate; the keyboard and line 
printer are vital components in a computer system, and by mastering these 
ST BASIC keywords, you can put these devices to better use. 


Random-Access Files and Sequential Files 

There are two types of files in Atari ST programming: random-access and 
sequential files. As an analogy, suppose you had to choose between two 
forms of magnetic media: a cassette tape or a floppy disk. To use the cas¬ 
sette tape, you have to start at the beginning and keep rolling the tape until 
it reaches the file you are looking for. The programs on the tape are in order, 
and to get program number 21, you would have to go through the first 20. 
The floppy disk, however, does not hold programs in any absolute order. 
When you request a program, the floppy disk searches the disk and quickly 
finds what you’re looking for. 

In this analogy, the cassette tape is a sequential file, and the floppy disk is 
a random-access file. A sequential file has everything in order, and if you 
want to get to something, you have to go through everything that precedes 
it. A random-access file, however, lets you go directly to the information you 
are searching for. 

The ST lets you have both types of files, and they each have their advan¬ 
tages. Let’s discuss random-access files first. 


Random-Access Files 

Random-access files store information in such a way that you can retrieve 
any one record directly. A random-access file is made up of several records, 
which can be mailing addresses, product information, telephone numbers, 
and so on. These records aren’t stored in any order that would make sense 
to the ST BASIC programmer, but for the computer’s purposes, random- 
access files are easy to work with since any record in the entire file can be 
brought into memory simply by specifying the number of that record. 

The program shown in Listing 7.1 demonstrates how you can store 
records in a random-access file and retrieve them directly. Using this pro¬ 
gram, you can enter the name, street address, city, state, and ZIP code of a 
person, which constitutes one record. You could have a mailing list of 50 or 
more individuals, and by knowing the record number of each person, you 
could find their complete address with the touch of a button. 

The first three lines of the program identify its purpose (line 10), make the 
Output window fill the screen and clear it (line 20), and then open a file 











207 


USING THE DISK DRIVE AND PRINTER 


Listing 7. /: Address 
Handler program 


10 

REM Address 

handler pr 

og ram 


20 

FULLW 

2: CLEARW 2 


30 

OPEN 

"R",#1, 

"Addresses 

",500 


40 

FIELD 

#1,30 

AS FL$,30 

AS SLS,40 

AS TLS 

50 

INPUT 

"Add a 

n address 

or Get one 

"; ANS 

60 

IF AN$="Get" 

THEN GOTO 

140 


70 

INPUT 

"Enter 

starting 

number";NM 


80 

PRINT 

"Name 

"; NM; "-> 

: LINE INPUT NAS 

90 

LINE 

INPUT " 

Street Add 

ress->"; 

SAS 

100 

LINE 

INPUT " 

City, Stat 

e, ZIP-> 

"; CSZS 

110 

LSET 

FL$=NA$ 

: LSET SLS 

=SAS: LSET 

TL$=CSZ$ 

120 

PUT #1,NM: I 

NPUT "Type 

1 to ente 

r another or 2 to get a 


name" 

; RP 




130 

IF RP 

=1 THEN 

NM=NM+1: 

GOTO 80 


140 

INPUT 

"Which 

numbe rNU 


150 

GET #1,NU 




160 

PRINT 

FL$: PRINT SL$: 

PRINT TLS 


170 

GOTO 

140 





called Addresses that is 500 bytes long and is identified as file #1 (since it is 
the first and only file open). The first time the program is run, a new file is set 
up; afterward, the computer will simply open the existing file so it can send 
and receive information using the file Addresses. 


FIELD Line 40 uses the FIELD keyword, which allocates a certain number 
of bytes for string variables in a random-access file (numeric variables are 
not allowed, since random-access files do not store them). The format for this 
statement is 

FIELD # number ,; bytes AS string variable[,bytes AS string variable, . . . ] 

where the itnumber is the file number of the random-access file in which the 
space should be set aside, the bytes are the number of bytes that should be 
allocated for the string variable, and the string variable is what you are mak¬ 
ing room for. You can list as many variables as you like after FIELD, as long 
as you specify how many bytes you want for each. In line 40, 30 bytes are 
set aside for FL$ (the first line of the mailing address), 30 bytes for SL$ (the 
second line), and 40 bytes for TL$ (the third line). The file number is #1, 
since that is the only file I am using. Remember that FIELD sets aside space 
for string variables in each record of a file, not for the entire file. Therefore, 
since 30 bytes are set up for FL$, you can have up to 30 characters for the 
first line in every record of the file. This sets up space, but FIELD does not 
actually store the variables. 
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You can tell the computer whether you want to add an address to the file or 
retrieve an address already stored on the disk. If the answer is equal to the 
string Get, the program will go to a routine at line 140 to retrieve a record 
based on its number. 

If you answer with anything other than Get, the program proceeds to line 
70 to find out at which record number it should start adding more records. If 
this is the first time the program is being used, the starting number should 
be 1. Otherwise, you should type the number that is equal to the last record 
number entered plus 1; for instance, if there are 43 mailing addresses 
already in the file, the starting number should equal 44. 

Now the computer can start receiving information for the name, street 
address, and city/state/ZIP—NAS, SA$, and CSZ$—of the mailing addresses. 

LSET To convert these strings into a format that is suitable for file storage, 
you need to use the LSET statement. Its format is 

LSET newstring = oldstring 

where newstring is simply a new string name you use so that LSET can con¬ 
vert the string you have in memory for the file, and oldstring is what you 
want made ready for the file. For instance, if you were going to store a string 
called YY$, you might type LSET H$=YY$. The name H$ would be stored in 
the file as the name of the string. In line 110, the variables FL$, SA$, and 
TL$ are used in the file to represent the string variables that you just typed: 
NAS, SA$, and CSZ$. 

PUT Now that these strings have all been converted and are ready to be 
sent to the file, you have only to use the PUT statement to complete the 
operation. The format of PUT is 

PUT #number\,record number] 

where #number is the file number (#1), and the record number is equal to 
the variable (NM). Line 120 uses PUT #1,NM to transfer the variables FL$, 
SL$, and TL$ to the file under their respective names, and then the com¬ 
puter asks if you would like to enter another record or move on to the 
retrieval function. 

If RP is equal to 1, indicating that you want to enter another mailing 
address, the program increments the current record number being used 
(variable NM) by 1 and goes back to line 80 so you can enter another 
record. If the variable RP is not equal to 1, the program goes to line 140, 
where the retrieval routine is located. At line 140, you can enter the record 
number of the mailing address you want to see. 

GET Once the computer has the record number, it can bring that record 
into memory with the GET statement, whose format is the same as for PUT: 


GET #number[,record number] 
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GET retrieves from file #1 the record number NU, and once that record is in 
memory, the program displays the name (FL$), street address (SL$), and 
city/state/ZIP (TL$) for that record number. The GOTO 140 at line 170 makes 
the program go back to the beginning of the retrieval routine so that another 
record can be brought onto the screen. To escape the program, press 
Control-G. 

Output Below is an output example using this program: 

RUN 

Add an address or Get one? Add 
Enter starting number? 1 
Name 1—> Howard Smith 
Street Address—> 20 Brooksbank Ct. 

City, State, ZIP —> Naylor, Wl 34523 

Type 1 to enter another or 2 to get a name? 1 

Name 2—> Alfred Chiko 

Street Address—> 1240 First Street 

City, State, ZIP—> San Jose, CA 95126 

Type 1 to enter another or 2 to get a name? 1 

Name 3 — > Bobby Reid 

Street Address—> 25 Beaver Creek Lane 

City, State, ZIP— > Darien, CT 06820 

Type 1 to enter another or 2 to get a name? 2 

Which number? 2 

Alfred Chiko 

1240 First Street 

San Jose, CA 95126 

Which number? 


A More Direct Method 

The advantage of random-access files is that they let you find information 
more directly than you could with sequential files. To avoid having to remem¬ 
ber which numbers correspond with certain names, you can modify the 
previous program, as shown in Listing 7.2. Most of the program is the same, 
but because you can find an address directly simply by entering a person’s 
name, I will point out the changes. 

First of all, the statement in line 10 is provided in case you should enter a 
name that is not currently stored in a file. If the computer encounters an 
error while running the program, it will go to line 200 and tell you the error 
number so the program can be stopped; most likely, you will get an 
error only if you enter a name that either is not stored in any record or is 
entered in a slightly different way than you specified. 
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Listing 7.2: Revised 
Address Handler 
program 


Line 150 asks for the name of the person whose address you want. Once 
you enter the name, the computer begins searching through each record num¬ 
ber with the GET statement in line 170. Then, instead of typing IF FL$=NS$ in 
the next line to see if a match was made between NS$ and the first line of the 
record, I had to use the LEFTS statement as well. The reason is that for every 
variable you store in a file, the computer will allocate the number of bytes you 
specified for that variable and then fill up the rest of the space with blanks. 
The variable FL$ was given 30 bytes in each record by the FIELD statement. 
Because most names are shorter than 30 characters, all the remaining bytes 
were blanks. Thus, even if NS$ and FL$ were the same, they would not 
match, since FL$ would contain additional characters (blanks) that NS$ did 
not. To solve this problem, in line 180 I used a logical test: 

IF LEFT$(FL$,LEN(NS$)) = NS$ 

The computer checks only the leftmost characters, based on the length of 
the string you entered as the name (NS$). If the name you entered was 15 
characters long, the program would check the first 15 characters of the FL$ 
it found in each record. If a match was made, the rest of the mailing address 
in that record (SL$ and TL$) would be printed along with the number of the 
record in which the address was found. As you can see in line 180, the pro¬ 
gram goes back to line 130 once the address is displayed to see if you want 
to find another name or enter a new mailing address. Until a match is found, 
however, the computer keeps incrementing NU by one and goes back to 
line 170 until it finds the record whose FL$ field matches the name input as 
NS$. If the file is entirely exhausted and no match is found, the program will 
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go to the error routine at line 200 to show that a certain error number 
occurred and end the program. 

Below is an output example using this program: 

RUN 

Add an address or Get one? Add 

Enter starting number? 1 

Name 1—> John Dewey 

Street Address— > 881 Sinclair Drive 

City, State, ZIP—> Baton Rouge, LA 70815 

Type 1 to enter another or 2 to get a name? 1 

Name 2—> Norman Rupert 

Street Address—> 75 Yucee Court 

City, State, ZIP— > Milford, IA 56230 

Type 1 to enter another or 2 to get a name? 1 

Name 3 — > George Cooke 

Street Address—> 3438 Beechwood Trail 

City, State, ZIP—> Walnut Creek, CA 93523 

Type 1 to enter another or 2 to get a name? 2 

Enter name of person? John Dewey 

881 Sinclair Drive 

Baton Rouge, LA 70815 

Type 1 to enter another or 2 to get a name? 

LSET and RSET There are a few other keywords you should know about to 
use random-access files. You are already familiar with LSET, which takes 
strings in memory and prepares them to be stored in a random-access file. If 
a string is shorter than the bytes that are allocated for it, LSET will fill up the 
remaining spaces to the right of the string with blanks. If, for example, you had 
ten bytes allocated for A$ and A$ only had eight characters, the last two bytes 
in the record where A$ was stored would be blanks. Using RSET instead of 
LSET will make the computer put blanks to fill up the space in front of (rather 
than behind) the string. If A$ was "********” 1 LSET would store it as 
“******** » (two blank spaces at the end), and RSET would put it on the 
record as ********” (two blank spaces at the beginning). This is a 
relatively unimportant keyword, but you might find it useful sometime. 

MKD$, MKS$, and MKI$ The MKD$, MKS$, and MKI$ functions are 
somewhat more important, since they convert numbers into strings that can 
be stored. Random-access files will not accept numeric variables, and so to 
convert a number or numeric variable into a string suitable for LSET there 
are three formats. For double-precision numbers, use 


LSET string = MKD$(numeric expression) 
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For single-precision numbers, use 
LSET string = MKS$(numeric expression) 

For integers, use 

LSET string = MK\$(numeric expression) 

As you might expect from the corresponding numeric types, the lengths of 
these strings will be eight bytes, four bytes, and two bytes, respectively. 
Once you have saved this information to a file, you'll need to retrieve the 
strings and convert them back into numbers. The commands to do this are 
CVD, CVS, and CVI. Suppose the strings you used for the double-precision 
and single-precision numbers and integers above were DBS, SN$, and INS, 
and you wanted to load these numbers back into memory and display them. 
First load the strings with GET, then type 

PRINT CVD (DBS) 

PRINT CVS (SN$) 

PRINT CVI (IN$) 

It’s probably clear by now that random-access files are easy to use. Once 
you understand how to use the keywords to save and retrieve strings using 
the disk drive, you can come up with many useful applications. 


Sequential Files 

When using sequential files, you must remember that records are stored in 
a fixed order. To get to record 9, you have to bypass records 1 to 8. The 
program shown in Listing 7.3 lets you enter sales figures for certain days in 
a month. Lines 10-30 identify its purpose and prepare the Output window. 
In line 40, the program sets aside an array called SD$() to store the sales 
figures for as many as 31 days in a month. The program then asks whether 
you want to enter data or retrieve it. If the number entered is 2 (line 50), the 
program goes to line 110 so that it can retrieve a piece of data. 

If you want to enter data, the computer asks for the name of the month 
that the sales data pertains to (line 60). The OPEN statement in line 70 has a 
different format than that used for random-access files (its format is described 
later in this chapter). The “O” indicates that the program will be sending 
data to a sequential file, the #1 gives the file a number, and MN$ gives the 
file a name (which is the name of the sales month). 

PRINT The computer needs to know how many sales days are in the 
month so that it can run a FOR . . . NEXT loop to get all the data. Once the 
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Listing 7.3: Sequential 
File program 


number of days is input, the computer records that number into the file with 
the command PRINT #1,SD (line 80). PRINT# is the most useful statement for 
sending information to a record, and its format is 

PRINT #number, item[, item, . . .] 

where the items can be numbers, strings, numeric variables, or anything else 
you could use with the regular PRINT statement. If you specify more than 
one item, remember to separate all of them with commas or semicolons. 

Next, the computer begins the loop that counts from 1 to SD (line 90). You 
enter the figure for each sales day, and the program then records this string 
to the disk under its unique array name. Once the loop ends (line 100), the 
computer goes to line 150 to close the file, erase the contents of the array, 
and go back to line 40 to see whether you want to enter more data or 
retrieve it. 

INPUT If you decide to retrieve data, the computer will get the name of 
the month you want to see. With that information, the computer can open the 
correct file and find out how many days are stored with the command 
INPUT #1, SD. The INPUT# statement works very much like the INPUT 
you’re familiar with, except that the computer gets a piece of information that 
is already stored on the file. The format for INPUT# is 


INPUT #number,variable[,variable, . . . ] 
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You can load one or more variables with INPUT#, and the computer will 
assign the variable names you specify to the items that are loaded from the 
disk. With INPUT #1,SD in line 120, the computer loads the number that indi¬ 
cates how many sales days are in a month and stores that number in the 
variable SD. 

In line 130, the program starts the FOR . . . NEXT loop that counts from 1 
to SD. As the figures for each day are loaded into the array SD$(), they are 
displayed on the screen until every sales record from the file has been 
loaded. 

Output To demonstrate how this program might work, here’s a sample run 
using only five sales days in the month of June: 

RUN 

Type 1 for entering data, 2 to retrieve it? 1 

What month is this for? June 

How many sales days are in this month? 5 

Sales for day 1? 1507 

Sales for day 2? 1223 

Sales for day 3? 2553 

Sales for day 4? 927 

Sales for day 5? 2012 

Type 1 for entering data, 2 to retrieve it? 2 

What month do you want to see? June 

Sales for day 1 were $1507 

Sales for day 2 were $1223 

Sales for day 3 were $2553 

Sales for day 4 were $927 

Sales for day 5 were $2012 

LINE INPUT A few other statements might come in handy when you are 
writing sequential file programs. LINE INPUT# works a lot like INPUT#, but it 
can also load commas, quotation marks, and other characters that would not 
be allowed with INPUT#. Its format is 

LINE INPUT #number, string variable 

where, as usual, #number is the file number and the string variable loaded 
into memory from the disk can be up to 254 characters long. To understand 
the difference between LINE INPUT# and INPUT#, reread the sections on 
LINE INPUT and INPUT in Chapter 2; the differences between each pair of 
commands are almost identical, except that the regular commands work with 
the keyboard rather than the disk drive. 

WRITE and WRITE § One output statement that you can use with either 
the screen or disk drive is WRITE. WRITE (or WRITE#, if you are sending 
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information to the disk drive) works almost exactly like the PRINT statement, 
except that it puts quotes around each item being printed. This helps you 
distinguish the individual pieces of data that are being printed to the screen. 
WRITE is especially helpful because it can show you what data is being sent 
to a file. Suppose you wanted to send the variables A$, B$, and C$ to be 
recorded on a sequential file. The format of WRITE is 

WRITE variable or string data[,variable or string data, . . .] 

You could record this information and see what was being recorded by 
including the following in your program: 

WRITE A$,B$,C$: WRITE #1, A$, B$, C$ 

The first WRITE statement would display the three strings on the screen, and 
the WRITE #1 statement would send the strings to the file #1 that was cur¬ 
rently open. On both the screen and the file, double quotes would enclose 
each of the three strings. 

EOF Finally, the EOF function will let you know when you have reached the 
end of a sequential file. In your sequential file programs, you should include 
a line that checks the status of the file. The format of EOF is 

EOF (file number) 

Suppose you had sequential file number 3 open; as long as EOF (3) was 
equal to 0, there would still be more information to be read in the file. Once 
the last item has been read for the file, however, EOF (3) will return a value 
of -1. By using EOF in your sequential file programs, you can avoid going 
past the end of a file and making the program stop because of the error. 


Disk Functions 

You are already familiar with the LOAD, SAVE, and REPLACE commands 
that are used with the disk drive: LOAD brings a program into memory from 
the disk, SAVE copies the program from memory and stores it on the disk, 
and REPLACE resaves the program in memory under a name already used 
on the disk. Each of these commands is followed by the name of the file 
(enclosed in quotes) you want to load or save. ST BASIC has many other disk 
commands, some of which are valuable in keeping your disk files organized. 

When you are programming in BASIC, most of the files you save to disk 
will be the programs you write. However, the term file can describe a wide 
variety of file types that can be used with the ST 







216 


UNDERSTANDING ATARI ST BASIC PROGRAMMING 


A file, simply defined, is a body of information that is stored to the disk. 
Every file that is saved is given a unique name, and it helps if you name the 
file something that suggests its purpose or content. To make defining files 
easier, the ST lets you add a three-letter extension to the end of the file 
name. For BASIC programs, your extension would be BAS. For text files, 
you might store files with the extension TXT. Data files might be identified 
with DAT. A period separates the file name from the extension, so if you had 
a data file that held information about the sales that occurred in April, you 
might name that file APRSALES.DAT. Notice that the file name can have up 
to eight characters but the extension only three. 

To make working with files easy for you, make a point of giving files clear 
and understandable names. You don’t want to cram too much information 
into a file name; for instance, if you were to record a text file describing the 
performance of James Smith during 1986, the filename JSPRFM86.TXT 
would probably be bewildering a few months later. A better alternative might 
be JSMITH86.PER. Notice that you can usually make an extension name 
anything you want. The key is to group related files under the same exten¬ 
sion, so that your information is well organized. For example, you might have 
20 files marked .PER, showing 20 employees’ performance. 


DIR 

One important disk command is DIR, which displays the names of the files 
stored on a disk. DIR is short for directory, and its format is 

DIR [drive: search string ] 

If you simply type DIR, the computer will list all the files on the disk you are 
currently using. DIR followed by a drive designation (either A: or B:) will 
show the files on that disk drive; DIR B:, for example, would display the file 
names for the diskette in drive B. 

To search for a particular type of file, you can set up a search string that 
the computer uses to match file names. The most basic way to use this fea¬ 
ture is to type DIR followed by the name of a program; if that program is on 
a disk, its name will be displayed. If not, nothing will be displayed. To see if 
the program FUNGAME.BAS is stored on drive A, for example, type 

DIR A: FUNGAME.BAS 


Wildcards 

A more precise way of searching for files is with the wildcard characters ? 
and *. The question mark indicates that any one character it replaces is a 
match, and the asterisk indicates that any character or group of characters it 
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replaces in the file name is a match. You can search for certain program 
names or extensions while ignoring the other part of the whole file name. 
Here are some examples of how you can use DIR with a search string: 

DIR GAME7.COM 

displays any file names that begin with GAME and have the extension COM. 
Matches would include GAME1.COM, GAMEW.COM, and GAME3.COM. 
Remember that the question mark allows only one character, so GAMEWOW- 
.COM would not be a match, since three characters follow the search name 
GAME. 

DIR B: *.BAS 

would list all the files in drive B with the extension BAS. The asterisk accepts 
any character or group of characters in the name, which means that MAC- 
•BAS, STUTILITY.BAS, and NEWCUBER.BAS would all be matches. 

DIR ???.* 

The three question marks allow any three-character name as a match, and the 
asterisk accepts any extension. For example, WOW.COM, VR3.EXE, and 
DSL.BAS would all be matches, but PROGRAM.COM, FILENAME.APL, and 01 
would not be displayed since these all have names that are not three characters 
long. 


The NAME Statement 

If you want to change the name of a file that is already saved on disk, you 
can use the NAME statement. Its format is 

NAME oldname AS newname 

where oldname is the present name of the file, and newname is what you want 
the file to be named. To change the name of a program called ROBOTEXE to 
VALLEYEXE, type 

NAME ROBOT.EXE AS VALLEYEXE 


The ERA Command and the KILL Statement 

You can also erase a file that you don’t want using either of two keywords. 
ERA can only be used in the immediate mode; KILL can also be included in 
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programs. Their formats are as follows: 

ERA [drive:] file name 

KILL " string” or string expression 

If you wanted to get rid of a file called EATSPACE.BAS with ERA, you would 
type ERA EATSPACE.BAS (or, if the file was on drive B and you were cur¬ 
rently using drive A, ERA B: EATSPACE.BAS). To do the same thing with 
KILL, type either of the following: 

KILL "EATSPACE.BAS" 

N$ = "EATSPACE.BAS": KILL N$ 


The MERGE Statement 

If you had two or more programs that you wanted to merge to make a 
larger program, you’d use the MERGE statement. Its format is 

MERGE file name 

MERGE loads the file name you specify and leaves the program presently 
in memory alone. Also, any variables in memory will not be erased when 
you perform the MERGE operation. You should remember a few things about 
merging programs, however: 

■ Make sure the line numbers in the programs are different. If you have two 
programs that both have lines 10, 20, and 30, the program you load will 
overwrite those lines in the program you have in memory. It’s important to 
have different line numbers so that you won’t erase important program 
lines and also to make sure the lines are executed in the right order. 

■ To ensure that there won’t be any problem with conflicting or misplaced 
program lines, use the RENUM statement with all the programs you want 
to merge so that their line numbers are correct. For instance, suppose 
you had these two short programs on the disk: 

Program One 

10 REM This is the beginning of the program 
20 PRINT "Hello, I am the Atari ST computer." 

30 PRINT "I would like to count to ten for you. Here goes:" 
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Program Two 

30 FOR X = 1 TO 10: PRINT X 
40 NEXT 

50 PRINT "All done. Bye!": END 

If you used MERGE to put these two programs together, line 30 in pro¬ 
gram one would be erased. To correct this problem, you load program 
two and type 

RENUM 40 

which would make lines 30, 40, and 50 become lines 40, 50, and 60. At 
this point, you could merge program one successfully and obtain one 
complete program. 

■ It’s a good idea to save the program currently in memory before you 
merge another program with it. This will guarantee that no matter what 
goes wrong with the merged files, you’ll always have the original pro¬ 
grams on disk for later use. 

The following is an example of how you can use MERGE with programs. 
First, type the program below and save it under the name FIRSTBAS: 

10 REM First.bas 
20 FULLW 2: CLEARW 2 
30 COLOR 1,3,2 
40 FOR 1 = 3 TO 30 STEP 3 

Once you've saved the above program, type NEW to clear the computer’s 
memory and enter the lines below as the second part of the program: 

50 REM Circle routine 
60 PCIRCLE 150,75,1 
70 COLOR 1 ,RND*16 
80 NEXT 


Now, issue the MERGE statement and list the merged program: 

MERGE "FIRST.BAS:" 

LIST 

10 REM First part of program 
20 FULLW 2: CLEARW 2 
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30 COLOR 1,3,2 

40 FOR 1=3 TO 30 STEP 3 
50 REM Circle routine 

60 PCIRCLE 150,75,1 

70 COLOR 1,RND*16 

80 NEXT 

MERGE is helpful when you have preset routines that you use often and 
want to save to disk and merge with other programs you develop later. You 
might want to write a whole libary of common subroutines that you can 
merge with other programs you develop. 


The CHAIN Statement 

A keyword similar to MERGE is CHAIN, which not only merges programs 
but can also preserve the variables being used in a running program; it has 
two formats. The first format is 

CHAIN "file name"[,line number, ALL] 

In this format, CHAIN simply loads a program from disk and runs it. If you 
specify a line number, the file name of the program loaded will begin running 
at that line number. If you don’t specify a line number, the program begins at 
the beginning. If you want all the variables in memory to be preserved when 
the new program starts running, type ALL after the comma, as shown in the 
format line. Here are some examples of this first format: 

CHAIN "FUNGAME.BAS" 

runs a program called FUNGAME.BAS. You could also accomplish this by 
typing RUN FUNGAME.BAS. All the variables currently in memory are erased 
when the program begins. 

CHAIN "FUNGAME.BAS",50 

runs a program called FUNGAME.BAS starting at line 50. All the variables 
currently in memory are erased when the program begins. 

CHAIN "FUNGAME.BAS",ALL 

starts the program FUNGAME.BAS at its beginning (since no line number is 
specified), but all the variables in memory are still there when the program 
starts running. 
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The second format for CHAIN is as follows: 

CHAIN MERGE "file name",line, DELETE line number\-Hne number] 

As in the first format, all the variables are preserved (which eliminates the 
need for an ALL argument), but the program that is currently in memory is 
not erased when the other one is loaded. You can also remove certain lines 
from the program in memory before the MERGE operation starts by typing 
DELETE and the line numbers you want removed at the end of the state¬ 
ment. To delete lines 50-70 of a program, merge a file called SUBRTINE- 
.BAS with the program currently in memory, and then start running the 
program at line 30, you would type 

CHAIN MERGE "SUBRTINE.BAS",30,DELETE 50-70 

Here’s a simple example of CHAIN, using its first format. Type line 10 and 
save it under the name CHAINER: 

5 REM Chainer 

10 PRINT "The number you entered was";NUM 

Now type NEW to erase everything in memory, enter the lines below, and 
type RUN to run the program: 

10 FULLW 2: CLEARW 2 
20 INPUT "Enter a number";NUM 
30 CHAIN "CHAINER",10,ALL 
RUN 

Enter a number? 30 

The number you entered was 30 


The COMMON Statement 

If you want only specific variables to be preserved when you issue the 
CHAIN statement, you can use COMMON. Its format is 

COMMON variable^variable, . . . ] 

where variable is any variable you want saved. Typing 

COMMON A$,PX,AR() 

would preserve the variables A$ and PX and the array AR(); when the 
second program in the previous example was chained into memory, any vari¬ 
ables besides these would be erased. 
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File Programming 

One of the most useful things you can learn to do with your ST is to work 
with information from the disk drive. The floppy disk is the Atari ST’s medium 
for information storage. There are several keywords in ST BASIC that let you 
save information to the disk so you can retrieve it later, and once you have 
put that information in the computer’s memory, you can crunch numbers or 
manipulate information as much as you want. 


The OPEN Statement 

First, you need to make room on the disk for a file. You use the OPEN 
statement, whose format is 

OPEN "type",ttnumber,"file name"[,length] 

If the “file name ” doesn’t exist, the ST will create the file; otherwise, it will 
make that file available for your use. 

Here are brief descriptions of the arguments that follow OPEN. 


Arguments for OPEN 

Type Enclose the letter 0, I, or R in quotes for this argument. 0, for output, 
means you will be sending information to a sequential file; I, for input, means 
that you will be receiving information from a sequential file; R means you will 
be working with a random-access file, performing either input or output. It’s 
important to type the letter you choose in uppercase and enclose it in 
quotation marks. 

Number Values for the number argument can range from 1 to 15, and 
must be preceded by a number sign (#). For every file you have open, you’ll 
need to use a new file number; if you have ten files open, therefore, they 
must be numbered from 1 to 10 so that the computer can deal with them 
individually. The file number distinguishes the different files you are working 
with from the disk. 

File Name This argument either establishes a name for the file you are 
opening or specifies the name of the file you want to load. 

Length Length, an optional argument, is measured in bytes. The default 
value is 128, but you can choose any length you want for your file. 
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The CLOSE Statement 

The opposite of OPEN is CLOSE, and its format is 
CLOSE [#]number[,number, . . .] 

where ttnumber is the number of the file you want to close. For example, to 
close file number 4 (as specified by the OPEN command), type 

CLOSE #4 

You could also type 

CLOSE 4 

since the number sign is not required with this statement. CLOSE is needed 
to shut down the line of communication between the computer and that disk 
file; you should include it in your programs at the point when you are no 
longer going to be using a particular file. 


The LOF and LOC Functions 

A couple of other functions you might find useful in file programming are 
LOF and LOC. LOF will tell you how long (in bytes) a file is; once you have 
opened a file (for example, #3), you could find out its length by typing PRINT 
LOF (#3). LOC will return the number of the last record you worked with 
from a file. If you are working with random-access files, LOC will tell you 
what the last record was that you either put into a file or took from a file. For 
sequential files, LOC will tell you how many records you have read or written 
to a file since you opened it. 


Using Files in Your Programs 

Having permanent storage—floppy disks—available to you can make your 
programs much more useful. Such applications as keeping mailing lists, 
managing checks, maintaining simple data bases, storing high scores from 
games, and saving students’ grades to the disk are all possible, and with a 
little imagination, it won’t be hard to think of a dozen more. Use the file type 
that is best suited for your needs—either random-access or sequential—and 
be careful to keep both record numbers and variable types in order. Going 
beyond the computer means expanding the potential of your Atari, and now 
that you know these input and output keywords, you’ll be able to branch out 
into these new areas with your own ST BASIC programs. 
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For most of this book, you’ve been learning about ST BASIC keywords 
and programming techniques. Now it’s time to give yourself some tests and 
see just how much you’ve learned. Unlike most tests, however, these should 
all be a lot of fun, and when you’ve finished them, you’ll have five programs 
you can show off to friends as your own creations. 

This chapter contains five ready-to-run ST BASIC programs. Before listing 
each program, I will describe the tasks, outline the algorithm, and develop 
the program step-by-step. These steps correspond to the way a program is 
actually developed. First you, the programmer, get an idea of what you want 
the program to do and what the computer will have to do to achieve the 
goal. Next, you work out in your head or on paper the general outline of 
the program so that you understand the different “blocks” you will need to 
create to complete the program. Finally, you can sit down and write the pro¬ 
gram, improve it along the way, and debug it so that it works perfectly. 

Although I don’t propose extensive preparation before you start writing a 
program, some forethought is important if you want an efficient program. 
Almost anyone can write a program within a few hours of learning about the 
computer, but not many people take the time to write a good program. What 
separates a good program from a bad one is its efficiency and cleanness 
(absence of bugs). Thinking over how you are going to write the program 
before you actually start typing will help you make the final program more 
efficient (because of good structure and planning) and clean (since you had 
a clear idea of how you would proceed, thus preventing too many bugs from 
creeping in). 

For each program in this chapter, the sections labeled Program Descrip¬ 
tion will describe the upcoming program in sufficient detail for you to write it 
yourself without looking at the listing. You’re free to consult the previous 
chapters of this book as well as the ST BASIC Sourcebook to help you, but 
you should challenge yourself to complete the program based on the 
description without looking at my version. 

If you find you need some more hints, check the section entitled Compo¬ 
nents. Here you’ll find a rough outline of how the program should be set up 
and some general recommendations about the keywords and techniques you’ll 
need to complete the program. You might want to check just one or two parts 
of this section to help you along, or you can read the whole section. 

If all else fails, you can go to the section called Program Development 
where I take you, step by step, through the making of the program. The 
lines will be somewhat out of order since I will be developing specific sub¬ 
routines along the way (not necessarily consecutively). You will find that when 
you develop your own programs, you must work in nonconsecutive modules 
and steps to build the program, and there will always be a lot of modifying 
as you are constructing it. By the time you are through with this section, you 
should have a working program. 

Following the Program Development section is a complete listing of the 
program; this will make checking any mistakes much easier and will also 
provide you a basis for comparison if you write your own program. I have 
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also included a section on Suggested Enhancements after each listing to 
give you some ideas on improving the program; you can try some of these 
ideas or come up with a few of your own to learn more about programming 
with ST BASIC. Experience is by far the best teacher in this subject. 

If you do write your own program, don’t think that it’s wrong just because 
it was written in a different way than mine. As long as the program you write 
fits within the confines of the program description (or is at least close), and 
as long as it runs efficiently, you can congratulate yourself for having con¬ 
quered the problem. It may even be that your program is more artfully 
designed and enjoyable to use than mine, or perhaps it was written in such 
a different way that comparing the two doesn’t make much sense. In any 
case, the point of this chapter is to let you use—and test—what you have 
learned by following certain program guidelines. The fewer guidelines you 
need, the better you can take a basic idea and develop it into a program by 
yourself. Try to use as few of my suggestions in the Components section as 
possible; your program will be uniquely yours if you complete it with your 
own ideas. 


HIGH/LOW GAME FOR CHILDREN 

This first program is a simple game for children that is easy to write using 
ST BASIC and some simple logic. 


Program Description 

Write a program that selects a random number ranging from 1 to 100 that 
the user must guess. After each guess at the number, the computer will indi¬ 
cate whether it is too low, too high, or correct. If the answer is high or low, 
the computer displays a graphic HI or LO in the upper right corner of the 
screen. You should make the program user-friendly: when the child guesses 
the right answer, have the computer display a congratulation and a perfor¬ 
mance rating based on the number of guesses needed to get the correct 
number. 


Components 

The five parts of this program are as follows: 

1. At the beginning of the program, write a routine that clears the screen, 
greets the child, and finds out if he or she would like to play the game. 

2. Have the ST select a random number between 1 and 100 with the RND 
function, and use INPUT to obtain the child’s guesses. 
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3. The program can tell the child whether each guess is high or low (using 
the logical tests > for greater than and < for less than). Use LINEF state¬ 
ments to print HI or LO in the upper right corner of the screen. 

4. If the child guesses correctly, the computer prints a multitude of RIGHTMs 
on the screen; if the guess is high or low, the computer accepts more 
guesses from the child with INPUT. 

5. At the end of the program, the computer uses the > and < logical tests 
to evaluate the player’s performance. Finally, the program finds out 
whether the child wants to play the game again and takes appropriate 
action based on the answer to this question. 


Program Development 

First, the computer is going to need a routine that guesses a random num¬ 
ber between 1 and 100. As you might have already figured out, the random- 
number generator will generate the same random number every time the 
computer is turned on or a new program starts running. Therefore, if you 
typed PRINT RND, wrote down the result, turned the computer off and then 
on, and entered PRINT RND again, you would get precisely the same num¬ 
ber. To make this “random” number more random, the computer will first ask 
the player to enter any number between 1 and 500, which is stored in the 
variable RN (for random number). If the number entered is less than 1 or 
greater than 500, the program will ask the user to type a number that is 
within the specified bounds. 

50 PRINT: PRINT "I'm going to think of a number between 1 and 

100 ," 

60 PRINT "but first I need a number from you. Type a number" 

70 PRINT "between 1 and 500 and press the Return key." 

80 INPUT "What's the number";RN: IF RN<1 OR RN>500 THEN 

PRINT "Please make it between 1 and 500": GOTO 80 

Once the computer has the player’s random number, the program uses it 
in a RANDOMIZE statement, which will reseed the random-number generator 
so that its numbers are less predictable. The variable CN (chosen number) 
stores the result of 100*RND, which is a random number from 1 to 100. 

90 PRINT "Thanks!": PRINT: RANDOMIZE RN: CN = INT (100*RND) 

Before starting the guessing game, the program pauses for a moment 
using a FOR . . . NEXT loop, clears the screen, then asks the player to enter 
a guess. This guess is stored in the variable PG (player’s guess), which will 
be compared with CN shortly. 
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100 FOR D = 1 TO 500: NEXT 
110 CLEARW2 

120 INPUT "What do you think my number is";PG 

If the player’s guess is less than 1 or greater than 100, the computer will 
tell the player to keep the guesses between 1 and 100; if the guess is within 
these bounds, the variable that counts the number of guesses (NG) is incre¬ 
mented by 1. Notice that if the player accidentally makes a guess outside 
the limits, the computer goes right back to line 120 without incrementing the 
variable NG after going to line 140. 

130 IF PG<1 OR POT00 THEN PRINT "Keep your guess between 1 
and 100. I won't count that guess against you.": GOTO 120 
140 NG = NG + 1 


Now the program can compare the player's guesses with the computer’s 
number. If PG is greater than CN, the program goes to a subroutine at line 
180 that draws a large HI in the upper right corner of the screen. The vari¬ 
able FL (flag) has special significance, since it designates the color of the HI. 
This is important because you want HI to appear for a few moments and 
then be erased. There is no ST BASIC keyword that can erase a certain part 
of the screen, so the solution is to draw HI again in the background color; 
this has the same effect as erasing it: HI becomes invisible. FL is set to 2 in 
line 180, which means that the first HI will be red. 

150 IF PG>CN THEN GOTO 180 
180 FL = 2: REM High routine 
190 COLOR 1,1,FL 

The next four LINEF statements draw the four lines needed to make the HI 
(three lines for the H, one for the I). It wasn't difficult to come up with these 
coordinates, since I had simply to visualize the relationships of the points that 
would form the two letters. 

200 LINEF 400,10,400,50 
210 LINEF 400,30,430,30 
220 LINEF 430,10,430,50 
230 LINEF 450,10,450,50 

The FOR . . . NEXT loop in line 240 gives the variable FL another purpose: 
the computer counts from 1 to FL*1000. When FL equals 2 (which means 
that HI is visible), the computer pauses briefly while it counts from 1 to 2000; 
this will leave HI on the screen long enough for the child to read it. After this 
loop is done for the first time, the value of FL is changed to 0, and the 
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computer goes back to line 190 so it can draw HI again, this time using the 
background color, white. The second time line 240 is encountered, FL is equal 
to 0, which means that the FOR . . . NEXT loop won’t cause the program to 
pause and, since FL doesn’t equal 2, the computer will go to line 250, where 
it is instructed to go back to line 120 (to get the player’s next guess). 

240 FOR D = 1 TO FL*1000: NEXT: IF FL = 2 THEN FL = 0: GOTO 190 
250 GOTO 120 

The routine for a low guess is almost identical. The only differences are 
that the color is first set to red (just to give the program some variety) and 
the LINEF statements have different coordinates, since the program draws 
the word LO instead of HI. Finally, because FL is first equal to 3 rather than 
2, the FOR . . . NEXT loop used to delay the program counts from 1 to 
FL*750 rather than 1 to FL*1000; this will make the computer count 
to 2250, a sufficient pause. 

160 IF PG<CN THEN GOTO 260 

260 FL = 3: REM Low routine 

270 COLOR 1,1,FL 

280 LINEF 400,10,400,50 

290 LINEF 400,50,430,50 

300 LINEF 450,10,450,50 

310 LINEF 450,50,500,50 

320 LINEF 500,50,500,10 

330 LINEF 450,10,500,10 

340 FOR D = 1 TO FL*750: NEXT: IF FL = 3 THEN FL = 0: GOTO 270 
350 GOTO 120 

If the player happens to guess the computer’s number, the program goes 
to line 360, where it prints RIGHT! I I 48 times on the screen. The program 
then clears the screen again and tells the player how many guesses it took 
to correctly guess the random number. 

170 IF PG =CN THEN GOTO 360 

360 CLEARW 2: FOR D = 1 TO 48: PRINT "RIGHT ! ! ! NEXT 
370 CLEARW 2: PRINT "You got the answer in";NG;"guesses." 

The evaluation scale for performance is somewhat arbitrary and perhaps 
too difficult for a young child, so you may want to adjust it after trying the 
program out a few times. If the player takes less than 3 guesses, the pro¬ 
gram prints You're quite a pro! More than 2 and and less than 6 guesses 
warrants That’s not bad, and 6 or more guesses produces Keep working on 
it. Note how two logical expressions are combined in line 390 to find out if 
the number of guesses is between two other numbers. 
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380 IF NG<3 THEN PRINT "You're quite a pro!" 

390 IF NG>2 AND NG<6 THEN PRINT "That's not bad." 

400 IF NG = >6 THEN PRINT "Keep working on it. . ." 

The program now asks whether the player wants to play again. If the first 
character of the answer is Y or y, the program goes to line 50 to play 
another game. Otherwise, the screen is cleared, the computer says Bye!, 
and the program is over. 

410 PRINT: INPUT "Do you want to play again";AN$ 

420 IF LEFT$(AN$,1) = "Y" OR LEFT$(AN$,1) = "y" THEN GOTO 50 
ELSE CLEARW 2: PRINT "Bye!": END 

The finishing touch to add is a greeting that will make the child feel more 
comfortable with the computer on first trying out the program. In line 30, the 
program asks whether the child wants to play a game; if the first character of 
the answer is V or y the ST cheerfully prints Great! and goes to line 50. Oth¬ 
erwise, the disappointed computer prints Some other time, then and ends 
the program. 

10 REM High/Low Game for Children 
20 FULLW 2: CLEARW 2: GOTOXY 0,0 

30 INPUT "Hello! Would you like to play a game with me";AN$ 

40 IF LEFT$(AN$,1) = "Y" OR LEFT$(AN$,1) = "y" THEN PRINT 
"Great!" ELSE PRINT "Some other time, then. . .": END 

Figure 8.1 shows a sample run of this program, and Listing 8.1 presents 
the entire High/Low Game program. 


Suggested Enhancements 

• Add a provision for different skill levels so that the ranges of the random 
number and the performance evaluation are adjusted according to the 
player's ability. 

■ Try to make more impressive effects for the HI, LO, and RIGHT! ! ! sec¬ 
tions. You might try changing colors, more elaborate graphics, and maybe 
even sound effects. 

■ Personalize the program so that after the child enters his or her first name, 
the program uses that name, in all the prompts and other messages it dis¬ 
plays (such as What do you think my number is, Johnny?). This will make 
the game more fun for the child. 
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PIE CHART PROGRAM 

You learned in Chapter 4 how to make a pie chart using random values. 
This next program will be more useful, however, since it graphs a chart 
based on the real numeric data that you enter. 


Program Description 

Write a program that will accept up to 15 numbers and text strings (which 
in a word identify their data item) from the user. Once the program has this 
data, it should display it in the form of a pie chart with proper sizing for all 
the segments. The entire circle should be filled, and each segment of the 
graph should be a different color that is the same as the color used in print¬ 
ing the text label for each data item. For example, if you were showing the 
men and women in a country and the data for those groups was 48 percent 
and 52 percent, 52 percent of the circle might be green and the word 
Women would appear in green on the screen, while the remaining 48 per¬ 
cent of the circle might appear in red with the word Men shown in red on 
the screen. This key makes the pie chart more useful, since you could easily 
match the text labels with the circle segments. 


Components 

1. Use an array to store the data elements. 

2. Each data element should have a corresponding text label. 


RUN 

Hello! Would you like to play a game with me? No way 
Some other time, then. . . 

RUN 

Hello! Would you like to play a game with me? Yes! 

Great! I'm going to think of a number between 1 and 100, 
but first I need a number from you. Type in a number 
between 1 and 500 and press the Return key. 

What's the number? 653 

Please make it between 1 and 500 

What's the number? 420 

Thanks! 

What do you think my number is? 105 

Keep your guess between 1 and 100. I won't count that guess 
against you. 

What do you think my number is? 50 
What do you think my number is? 25 
What do you think my number is? 35 
What do you think my number is? 33 

RIGHT ! ! ! RIGHT ! ! ! RIGHT ! ! ! RIGHT ! ! ! (and so on . . .) 
You got the answer in 4 guesses. 

That's not bad. 

Do you want to play again? Not this time 
Bye! 


Figure 8.1: A sample 
run of the High/Low 
Game program 
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Listing 8.1: The High/ 
Low Game program 


10 

REM High/Low Game for Children 


20 

FULLW 2: CLEARW 2: G0T0XY 0,0 


30 

INPUT "Hello! Would you like to play a game with me";AN$ 


40 

IF LEFT$(AN$,1)="Y" OR LEFT$(AN$,1)="y" THEN PRINT "Great!" ELSE 
"Some other time, then . . END 

PRINT 

50 

PRINT: PRINT "I'm going to think of a number between 1 and 100," 


60 

PRINT "but first I need a number from you. Type a number" 


70 

PRINT "between 1 and 500 and press the Return key." 


30 

INPUT "What's the number";RN: IF RN<1 OR RN>500 THEN PRINT "Please make 
it between 1 and 500": GOTO 80 

90 

PRINT "Thanks!": PRINT: RANDOMIZE RN: CN=INT (100*RND) 


100 

FOR D = 1 TO 500: NEXT 


110 

CL EAR W 2 


120 

INPUT "What do you think my number is";PG 


130 

IF PG<1 OR PG>100 THEN PRINT "Keep your guess between 1 and 100. 
won't count that guess against you.": GOTO 120 

I 

140 

NG=NG+1 


150 

IF PG>CN THEN GOTO 180 


160 

IF PG<CN THEN GOTO 260 


170 

IF PG = CN THEN GOTO 360 


180 

FL=2: REM High routine 


190 

COLOR 1,1,FL 


200 

LINEF 400,10,400,50 


210 

LINEF 400,30,430,30 


220 

LINEF 430,10,430,50 


230 

LINEF 450,10,450,50 


240 

FOR D = 1 TO FL*1000: NEXT: IF FL = 2 THEN FL=0: GOTO 190 


250 

GOTO 120 


260 

FL=3: REM Low routine 


270 

COLOR 1,1,FL 


280 

LINEF 400,10,400,50 


290 

LINEF 400,50,430,50 


300 

LINEF 450,10,450,50 


310 

LINEF 450,50,500,50 


320 

LINEF 500,50,500,10 


330 

LINEF 450,10,500,10 


340 

FOR D = 1 TO FL*750: NEXT: IF FL=3 THEN FL=0: GOTO 270 


350 

GOTO 120 


360 

CLEARW 2: FOR D=1 TO 48: PRINT "RIGHT ! ! ! : NEXT 


370 

CLEARW 2: PRINT "You got the answer in"; NG; "guesses." 


380 

IF NG<3 THEN PRINT "You're quite a pro!" 


390 

IF N G > 2 AND NG<6 THEN PRINT "That's not bad." 


400 

IF NG=>6 THEN PRINT "Keep working on it. . ." 


410 

PRINT: INPUT "Do you want to play again";AN$ 


420 

IF LEFT$(AN$,1) = "Y" OR LE FT$(AN$,1 ) = "y" THEN GOTO 50 ELSE CLEARW 
PRINT "Bye!": END 

2: 


3. Use the VDISYS generalized drawing primitive that draws solid circle 
segments. 

4. All the data should be added together and then divided into 3600 to find 
out how large the angles should be for each segment. The whole circle 
comprises 3600 tenths of degrees (the unit in which the VDISYS routine 
measures angles), and by dividing 3600 by the total of all the data, you 
can determine the multiplier to find the size of each circle wedge. For 
instance, suppose you had three pieces of data—40, 50, and 70—totaling 
160. 3600 divided by 160 equals 22.5, which means that each data ele¬ 
ment would be multiplied by 22.5 to find out how many units its segment 
should occupy (in this case, the three data pieces would require 900, 
1125, and 1575 tenths of degrees, which equals 3600 tenths of degrees: 
the entire circle). 
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Program Development 

First this program needs to get the data from the keyboard. This data will 
be stored in the array D(), which will be dimensioned to hold up to 15 differ¬ 
ent elements. 

10 REM Pie Chart program 
20 FULLW 2: CLEARW 2: COLOR 1,1,1 

30 DIM D(15) 

The variable PD will count the number of data items that have been 
entered. As long as PD is less than 15 (the maximum number of data ele¬ 
ments), the computer will increment the current value of PD by 1. Once the 
fifteenth element has been entered, the program will jump to line 70. Here 
the computer will use a FOR . . . NEXT loop to find the total value of all the 
data elements in its memory. 

40 IF PDC15 THEN PD = PD + 1 ELSE GOTO 70 
70 FOR 1 = 1 TO PD: TL=TL + D(I): NEXT 

The computer accepts the data with the INPUT statement; the data is 
entered first, followed by a comma and then the string that corresponds to 
the data. For instance, you might enter 400,January Sales after the program 
asks for the data number and its string: 

50 PRINT "Enter data number";PD;"and its label": INPUT 
D(PD),IT$(PD) 

If the data number entered as D(PD) equals 0 (which indicates that you 
want to graph the pie chart) or PD reaches 15, the program will proceed to 
line 70 to draw the graph; also, the number of data points is diminished by 1 
(since the last data point entered is meaningless). If neither of these logical 
conditions is met, the computer assumes you want to enter another data 
point, and so it goes to line 40 for more input. 

60 IF D(PD) = 0 OR PD = 15 THEN PD = PD-1 ELSE GOTO 40 

The program lines that draw the pie graph are built around the VDISYS 
generalized drawing primitive routine that draws solid circle segments. First, 
the appropriate POKE statements are made to set up this VDISYS routine: 

80 CLEARW 2: POKE CONTRL.11 

90 POKE CONTRL + 2,4 
100 POKE CONTRL +6,2 
110 POKE CONTRL +10,3 
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The center of the circle is set at (220,100), and the radius (defined at byte 
location PTSIN+ 12) is 70 pixels. 

120 POKE PTSIN.220: POKE PTSIN +2,100 
130 FOR 1 = 2 TO 7: POKE PTSIN+ 1*2,0: NEXT 
140 POKE PTSIN+ 12,70 

The variable Al (for angle increment) scales the circle segments properly 
so that they make a complete circle. Since the angles in the VDISYS routine 
are measured in tenths of degrees, a circle has 3600 tenths. By dividing 
3600 by the total value of all the data points, the program can come up with 
a number that it can multiply with all the data points to find out how many 
tenths each segment should be. 

150 Al = 3600/TL 


The program must now look from the first data point to the last (PD). The 
variable SA will be used as the starting angle, which is where the computer 
starts drawing the current segment. When this part of the program begins, 
SA will be equal to 0. As the segments are drawn, however, SA will be incre¬ 
mented so that the angle of each new segment starts where the last seg¬ 
ment ended. Each segment, therefore, will range from SA (always in tenths 
of degrees) to SA + D(I)*AI; this formula for the ending angle simply adds the 
starting angle to the data point multiplied by Al, which establishes each seg¬ 
ment’s size properly. 

155 SA = 0 

160 FOR 1 = 1 TO PD 

170 POKE INTIN,SA 

180 POKE INTIN+2,SA + D(I)*AI 


You now enter POKE statements for the starting and ending angles for the 
segment for the VDISYS routine. The starting angle (SA) must now be incre¬ 
mented so that the next segment drawn can begin at the correct angle. SA 
is made equal to itself plus D(I)*AI (the ending angle for the segment cur¬ 
rently being drawn), then the computer checks to see if the value I in the 
FOR . . . NEXT loop is equal to PD. If so, the computer has reached its last 
data element so the program uses a POKE statement to enter 3600—the 
ending angle to complete the circle—into INTIN+ 2: 

190 SA = SA + D(I)*AI: IF l = PD THEN POKE INTIN+2,3600 

Before drawing the segment, the computer colors both the text and fill 
color with the number of the FOR . . . NEXT counter variable I. VDISYS (1) 
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in line 200 draws the completed segment on the screen, and then the pro¬ 
gram uses line 210 to display the text associated with that data element. If 
you were plotting sales of various computer peripherals, and printers were 
equal to 22 percent of sales, the string “Printers = 22°/o” would appear in 
the same color as its corresponding segment. Also, these text strings are 
positioned using GOTOXY and the value of I so that they look well-ordered. 
The last couple of program lines close the loop and create an endless loop 
at line 230 to preserve the contents of the screen so you can examine them. 

200 COLOR 1,1: VDISYS (1) 

210 GOTOXY 0,1: PRINT IT$(I);"- ";INT(100*D(l)/TL)"°/o" 

220 NEXT 
230 GOTO 230 

Figure 8.2 shows the pie chart that the following data would produce. 

RUN 

Enter data number 1 and its string 

? 57,Printers 

Enter data number 2 and its string 

? 103,Modems 

Enter data number 3 and its string 
? 43,Monochrome Monitors 
Enter data number 4 and its string 


Figure 8.2: A hypotheti¬ 
cal pie chart showing 
computer peripheral 
sales 


De^k File Run Edit Debu 
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? 79,Color Monitors 

Enter data number 5 and its string 

? 39,Books 

Enter data number 6 and its string 

? 0,X 

Suggested Enhancements 

■ Add an option that lets you change the center and radius of the pie chart. 

■ Use different patterns with the COLOR statement when drawing the 
segments. 


COLOR PROGRA/mER 

Finding a particular color among the 512 available can be a difficult task. 
Color Programmer simplifies this by enabling you to use the keypad to shift 
through the wide range of colors and find the one you need. 


Program Description 

A filled circle in the middle of the screen shows the color as the user 
changes it. To alter the color, use VDISYS routine 14 (described in Chapter 6) 


Listing 8.2: The Pie 
Chart program 


10 

REM Pie Chart program 


20 

FULLW 2: CLEARW 2: COLOR 1,1,1 


30 

DIM D (1 5) 


40 

IF PD <15 THEN PD=PD+1 ELSE GOTO 70 


50 

PRINT "Enter data number";PD;"and its label": 

INPUT D(PD),IT$(PD) 

60 

IF D(PD)=0 THEN PD=PD-1: GOTO 40 


70 

FOR 1=1 TO PD: TL=TL + D(I): NEXT 


80 

CLEARW 2: POKE C0NTRL,11 


90 

POKE CONTRL+2,4 


100 

POKE CONTRL+6,2 


110 

POKE CONTRL+10,3 


120 

POKE PTSIN,220: POKE PTSIN+2,100 


130 

FOR 1=2 TO 7: POKE PTSIN+I*2,0: NEXT 


140 

POKE PTSIN+12,70 


150 

AI=3600/TL 


155 

S A =0 


160 

FOR 1=1 TO PD 


170 

POKE INTIN,SA 


1 80 

POKE INTIN+2,SA+D(I)*AI 


190 

SA=SA+D(I)*AI: IF I=PD THEN POKE INTIN+2,3600 


200 

COLOR 1,1: VDISYS (1) 


210 

GOTOXY 0,1: PRINT ITS(I);"- I NT (1 00*0 (I)/TL> 

"X" 

220 

NEXT 


230 

GOTO 230 
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and use the keypad as the input device that alters the levels of red, green, 
and blue in the color. The 7, 8, and 9 keys should increase the red, 
green, and blue levels; the 4, 5, and 6 keys should bring any of these levels 
back to their median of 500; and the 1, 2, and 3 keys should decrease the 
respective levels. Since any of these color levels can range from 1 to 1000, 
you should set them to 500 when the program starts. Let the user shift any 
level up or down in units of 10, and have the values of all three levels con¬ 
stantly displayed near the top of the screen. To get out of the program, have 
the user press the lowercase or capital Q. 


Components 

1. Use the variables R, G, and B to store the current color levels. 

2. The INP (2) function will get information from the keyboard so that the key¬ 
pad can be used as an input device and the Q key can also be monitored. 

3. Use an ON . . . GOSUB command so that the computer can go to the 
appropriate subroutine based on the keypad button pushed. 

4. Add three lines to make sure the red, green, and blue levels don’t go 
below 1 or above 1000. 

5. Use PCIRCLE to draw a solid circle with the color the user will be changing. 


Program Development 

First, you need to write a routine that accepts input from the keyboard and 
changes the R, G, and B variables. The ASCII values for the keys on the 
keypad are given in Table 8.1. 

X = INP (2) will store the ASCII value received from the keyboard; if X 
equals 81 or 113 (which are Q and q, telling the computer to quit the pro¬ 
gram), Color Programmer ends. Otherwise, the program uses an ON X-48 
GOSUB so that the appropriate subroutine is used based on the key just 
pressed. These subroutines change the value of R, G, or B and then return 
to the line following the GOSUB. 

70 X = INP (2) 

80 IF X = 81 OR X = 113 THEN END 

90 ON X-48 GOSUB 160,170,180,190,200,210,220,230,240 
160 R = R-10: RETURN 
170 G = G-10: RETURN 
180 B = B-10: RETURN 
190 R = 500: RETURN 
200 G =500: RETURN 
210 B = 500: RETURN 







239 


PROGRAMS AND PROBLEMS 


Table 8. 1: ASCII 

Keypad 

ASCII 

Color 

values, color changes, 

Number 

Code 

Change 

and corresponding 




keypad numbers 

1 

49 

Red level down 10 


2 

50 

Green level down 10 


3 

51 

Blue level down 10 


4 

52 

Red level back to 500 


5 

53 

Green level back to 500 


6 

54 

Blue level back to 500 


7 

55 

Red level up 10 


8 

56 

Green level up 10 


9 

57 

Blue level up 10 


220 R = R + 10: RETURN 
230 G = G +10: RETURN 
240 B = B +10: RETURN 

When the program makes the RETURN, it starts at line 100 so that the 
variables R, G, and B can be checked to stay within their bounds. If any of 
these variables is less than 0, it is made equal to 0, and if it goes beyond 
1000, it is made equal to 1000. Once the computer has checked these three 
numeric variables, it prints them near the top of the screen. 

100 IF R<0 THEN R = 0 ELSE IF R>1000 THEN R = 1000 

110 IF G<0 THEN G=0 ELSE IF G>1000 THEN G = 1000 

120 IF B<0 THEN B = 0 ELSE IF B>1000 THEN B = 1000 

130 GOTOXY 0,0: PRINT TAB (5);R;TAB (20);G;TAB (35);B 

At the beginning of the program, the levels for these three variables 
should be set to 500. Also, the POKE statements to call the color-changing 
VDISYS routine are made, and a solid circle is drawn using color 2 so the 
user can watch as the circle moves through the various colors. 

10 REM Color Programmer 
20 FULLW 2: CLEARW 2 
30 R = 500: G = 500: B = 500 
40 POKE CONTRL.14: POKE CONTRL + 2,0 








240 


UNDERSTANDING ATARI ST BASIC PROGRAMMING 


50 POKE CONTRL + 6,4: POKE INTIN,2 
60 COLOR 1,2: PCIRCLE 151,83,70 

The last part of the program changes the color. Using POKE, put the vari¬ 
ables R, G, and B into their appropriate locations. The VDISYS (1) statement 
alters the color. The GOTO 70 in line 150 sends the program back to the 
INP statement so that the computer can continue to receive commands from 
the keypad. 

140 POKE INTIN+2,R: POKE INTIN+4,G: POKE INTIN+6,B 
150 VDISYS (1): GOTO 70 

When using Color Programmer, remember that the left three keys on the 
keypad shift the red, the middle three keys shift the green, and the right 
three keys shift the blue. As you probably know already from writing this pro¬ 
gram, the top keys on the keypad raise a level by 10, the middle keys send 
a color level back to 500, and the bottom row of keys bring that level down 
by 10. Listing 8.3 shows the complete program. 


Suggested Enhancements 

m Have an option in the program that lets the user adjust the increments for 
changing the color levels (instead of having these changes set at 10). 



Listing 8.3: The Color 
Programmer program 
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m Add a feature that increases the speed with which the user can cycle 
through a particular color level. 

■ Let the user choose which color register to change, instead of always 
changing color number 2; POKE INTIN determines which color register 
will be altered. 


SOUND PROGRAMMER 

The Sound Programmer program works somewhat like the Color Program¬ 
mer program, since you use the keypad for the input device. By using the 
keypad, you can search through a variety of sounds to find the right one. 


Program Description 

This program should let the user change the shape, octave, note, and per¬ 
iod directly from the keypad, and also shift between noise and sound. Q 
indicates that the user wants to quit, and the WAVE and SOUND statements 
should be used to produce and alter the sound. The values for the octave, 
note, shape, period, and enable (1 for a sound, 8 for a noise) arguments of 
these statements should be displayed at the top of the screen so that the 
program is useful to a person trying to find a particular noise or note. 


Components 

1. At the beginning of the program, set the period to 1000, the shape to 8, 
and the enable to 8 in the WAVE statement; and set the note to 3 and the 
octave to 3 in the SOUND statement. 

2. Use WAVE with the enable, shape, and period arguments and SOUND 
with the note and octave arguments. Also, when the user wants to make 
noise rather than a tone, there’s no need to use the SOUND statement. 

3. Have plenty of error-checking routines so that none of the values exceed 
their boundaries. 

4. The INP function should be used to get the ASCII value of the keypad 
button that was pressed. ON . . . GOSUB is also helpful to access the 
appropriate routine to change whatever value the user wants altered. 


Program Development 

The heart of this program is the keypad input routine. First, the computer 
obtains the ASCII value from the keyboard with the INP statement, then it 
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checks to see if that value is equal to 81 or 113; if it is, the Q key has been 
pressed, and the computer clears the screen, turns off the sound channel, 
and ends the program. 

50 X = INP (2) 

60 IF X = 81 OR X = 113 THEN CLEARW 2: SOUND 1,0: WAVE 0: 
END 

If X is a value other than that of the Q key, it will direct the program to the 
subroutine that the user has requested. Table 8.2 lists the correspondences 
for keys, ASCII codes, and their functions. 

The toggle for the 3 key means that if the program is set to play a noise, 
pressing 3 will change to musical sound; if the program is set to play sound, 
the program will then play noise. 

70 ON X-48 GOSUB 120,140,160,180,200,220,240,260,280 

Notice that in the subroutines below, the program checks any value that 
has been changed to make sure it is still within certain bounds. The only 
exception is in line 160, where the variable WO (WAVE option) is toggled 
between 8 and 1. 

120 0 = 0 + 1: IF 0>8 THEN 0 = 8 
130 RETURN 


Table 8.2: ASCII 
values, tone changes, 
and corresponding 
keypad numbers 


Keypad 

Number 

ASCII 

Code 

Function 

1 

49 

Octave up 1 

2 

50 

Octave down 1 

3 

51 

Toggle between noise and sound 

4 

52 

Envelope down 1 

5 

53 

Period down 1 

6 

54 

Note down 1 

7 

55 

Envelope up 1 

8 

56 

Period up 1 

9 

57 

Note up 1 
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140 0 = 0-1: IF 0<1 THEN 0 = 1 
150 RETURN 

160 IF WO = 1 THEN WO = 8 ELSE WO = 1 
170 RETURN 

180 SH=SH-1: IF SH<8 THEN SH=8 
190 RETURN 

200 PE = PE-100: IF PECO THEN PE = 0 
210 RETURN 

220 NT = NT -1: IF NT<1 THEN NT = 1 
230 RETURN 

240 SH=SH + 1: IF SH>14 THEN SH = 14 
250 RETURN 

260 PE = PE+ 100: IF PE >10000 THEN PE = 10000 
270 RETURN 

280 NT = NT + 1: IF NT>12 THEN NT = 12 
290 RETURN 

Every time you change any of these values by pressing a key on the key¬ 
pad, the program will update the values displayed at the top of the screen. 
The GOTOXY 0,1 statement places each item in the same position, and the 
names displayed above the numbers (because of line 40) make the current 
sound parameters easy to identify. 

40 GOTOXY 0,0: PRINT "Octave:","Note:","Shape:","Period:","Enable." 
80 GOTOXY 0,1: PRINT OCT,NT,SH,PE,WO 

If the enable variable WO is set to 8, this indicates that a sound should be 
played. In line 90, the WAVE statement is used with the arguments 8 (for 
enable), 1 (so voice 1 is affected), SH (to set the shape), and PE (for the per¬ 
iod). Once the computer starts the sound, it returns to line 50 to wait for any 
more changes. 

90 IF WO = 8 THEN WAVE 8,1,SH,PE: GOTO 50 

If WO is set to 1 instead of 8, the program drops down to line 100 where 
both the WAVE and SOUND statements are used to produce a tone. Again, 
the program goes back to line 50 once the SOUND statement is issued. 

100 WAVE 1,1,SH,PE: SOUND 1,15,NT,OCT,0 
110 GOTO 50 

Finally, the beginning of the program clears the screen before anything 
else happens and also presets the values for the variables PE, NT OCT, SH 
and WO. 
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10 REM Sound Programmer 

20 FULLW 2: CLEARW 2 

30 PE = 1000: NT = 3: OCT = 3: SH = 8: WO = 8 

This is a useful program for finding tones, especially noises (since musical 
sounds aren’t affected much by the WAVE parameters). Listing 8.4 presents 
the complete program. 


Suggested Enhancements 

m Add graphics to the program so that the shapes are displayed as they 
are chosen. 

■ Enable the user to have two or three voices available to combine different 
tones and hear the results. 

■ Add a feature that lets the user shift through different parameters (such as the 
period) at a selectable speed rather than the fixed ones in the program. 



Listing 8.4: The Sound 
Programmer program 
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BAR AND LINE GRAPH 

Earlier in this chapter, you put together a program that would draw a pie 
graph based on the data a person entered from the keyboard. This final pro¬ 
gram also draws graphs, but the bar and line graphs it draws are somewhat 
different to program. 


Program Description 

Develop a program that will accept up to 100 pieces of numeric data from 
the keyboard and make either a bar chart or line graph (depending on the 
user’s choice) from this information. If a bar chart is drawn, the bars should 
be of a uniform width, the largest number should be near the top of the 
screen and smaller numbers proportional in size, and the bars should be 
separated so as not to touch each other. Try to distinguish the bars with dif¬ 
ferent colors or patterns. 

If the user selects a line graph, make sure that the highest point on the 
graph is near the top of the screen, and be sure all points on the graph are 
horizontally equidistant. 


Components 


1. Use an array to store the data that the user enters. 

2. As the data is being entered, use a variable called BIG to store the larg¬ 
est number yet received. If the data that was just entered is bigger than 
BIG, then make BIG equal the number that was just entered (when the 
program starts, BIG will equal 0, so the first number will automatically be 
stored as BIG). Using this simple logic will assure you that BIG is the larg¬ 
est number entered, and knowing the largest number is important so you 
can proportion the height of the bars or line points. 

3. Use the number of data points entered to determine how wide the bars 
should be. Also, when drawing the bars, put a few pixels of space 
between each of them, no matter how big or small they are. 


Program Development 

The user is first going to have to enter the raw numeric data. As the data 
is being entered, it will be stored in the array D(). The variable PD counts 
how many pieces of data have been entered, and OYC is an arbitrary vari¬ 
able for the line graph that shows what the old Y-coordinate is. 
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10 REM Line and Bar Graph 

20 FULLW 2: CLEARW 2 

30 DIM D(100) 

40 PD = 1: OYC = 150 

As each piece of data is entered, the computer tests its numerical value 
for two special conditions. If D(PD), the number just entered, equals 333, the 
computer will clear the screen and end the program, since this number sig¬ 
nals that the user wants to quit. If D(PD) is not equal to 333, the computer 
will check to see if it is equal to 0, which shows that the user is through typ¬ 
ing in numbers; if this logical test is passed, the computer subtracts 1 from 
PD (since the 0 entered as data is useless and should not be counted as a 
data point), and the program asks whether the user wants to print a bar 
chart or a line graph. The answer will be stored in GCH and will be used 
later in the program. 

50 PRINT "Enter data item";PD;: INPUT D(PD) 

60 IF D(PD) = 333 THEN CLEARW 2: END 

70 IF D(PD) = 0 THEN PD = PD-1: PRINT: INPUT "Bar (1) or Line (2) 
graph";GCH: GOTO 100 

If D(PD) is neither 333 nor 0, the computer assumes that a new data point 
has been entered, and it compares this piece of data with the variable BIG. 
BIG enables the computer to keep track of the largest piece of data entered 
in the set. If the data entered is greater than BIG, then BIG is set equal to 
P(PD). After the computer gets each piece of data, it increments the variable 
PD by 1 and goes back to line 50 for more input. 

80 IF D(PD)>BIG THEN BIG = D(PD) 

90 PD = PD+ 1: GOTO 50 

The routine that draws the graph is rather simple, but if you attempted this 
program on your own, you might have had some trouble figuring out how to 
deal with any kind of numbers that the user might enter. After the screen is 
cleared, the computer must determine a multiplier for all the data points. This 
multiplier will ensure that the bar chart or line graph will neither go beyond 
the boundaries of the screen nor be too small to be useful. This multiplier, 
variable IN, is found by dividing 120 (the number of vertical pixels I am 
allowing for the graph) by BIG. Suppose that the largest number entered 
was 480; 120 divided by 480 equals .25, and therefore every piece of data 
will be multiplied by this number in the FOR . . . NEXT loop in line 110. The 
number 480 would be scaled as 120 (the maximum height that you want for 
any bar or line point), and all the other numbers would be proportionally 
smaller. This is a simple technique, but it solves a lot of problems in building 
this graph. 
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100 CLEARW 2 

110 IN = 120/BIG: FOR 1 = 1 TO PD: D(l) = 130 - (IN * D(l)): NEXT 

No matter which graph it is going to draw, the program now draws the 
two lines for the X- and Y-axes. 

120 LINEF 20,150,600,150: LINEF 20,150,20,20 

To find out how wide the bars should be or how far apart the points in the 
line graph should be, the program divides 450 by the number of data points 
entered (variable PD). The number 450 is used because that is how many 
pixels across you want the graph to be. Therefore, if there are 25 data 
points, the bar width (BW) variable will equal 18, which means that bars will 
be 18 pixels wide or points will be 23 pixels apart (you’ll understand the 
5-pixel difference shortly). 


130 BW = 450/PD 

At this point the computer can draw the graph. The FOR. . .NEXT loop 
counts from 30 to 30 +((BW+5)* PD) STEP BW + 5. Let's take each of these 
parts one at a time: the loop starts at 30 because that’s where the Y-axis is 
located. The STEP value of BW + 5 ensures that there will be five pixels of 
space between each bar drawn; if a line graph is being made, the distance 
between each point will simply be BW + 5. The loop is counting to 
30 + ((BW + 5) * PD), since 30 is the loop’s starting point, BW + 5 is the num¬ 
ber of pixels to the right that each subsequent bar will be drawn, and PD is 
how many data items are to be shown. 

140 FOR X = 30 TO 30 +((BW + 5)*PD) STEP BW + 5 

To clarify the operation of the above loop, let’s say that you had five data 
points: 32, 54, 44, 48, and 62. Because there are five numbers, the variable 
BW (equal to 450/PD) would equal 90, meaning each bar would be 90 pix¬ 
els wide. The loop would therefore count from 30 to 505 in steps of 95, 
meaning the left edges of the bars would be 30, 125, 220, 315, 410, and 
505. The locations of the pixel points (if you were drawing a line graph 
instead) would also equal these values. 

The program now increments the counter variable C by 1 and compares it 
with PD. If the counter is greater than the number of data points, the pro¬ 
gram is through drawing the graph and will go to line 200, where the INP 
function is used to see whether a capital or lowercase G is pressed. If the g 
key is pressed, the computer will assume that the user wants another graph 
and go back to line 30. If any other key is pressed, the computer will simply 
leave the graph on the screen and wait indefinitely. 
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150 C = C + 1: IF C>PD THEN GOTO 200 

200 IF INP(2) = ASC( // g") OR INP(2) = ASC("G") THEN CLEARW 2: 

CLEAR: GOTO 30 
210 GOTO 200 

If GCH equals 2 (which means the user wants a line graph), the computer 
will draw a line from the pixel (X,OYC) to (X + BW+5,D(C)). X is the FOR . . . 
NEXT variable, OYC is the old Y-coordinate, X + BW + 5 is the next point 
where the loop will proceed, and D(C) is the data point that the computer fig¬ 
ured out earlier. Notice that OYC is made equal to D(C) after the line is 
drawn so that the computer can remember where the line graph left off 
when the next line has to be drawn. The GOTO 190 makes the program 
jump to the NEXT statement at that line so the loop may continue to the end. 

160 IF GCH =2 THEN LINEF X,OYC,X + BW + 5,D(C): OYC = D(C): 
GOTO 190 

If GCH does not equal 1, the computer will draw the bar for the current 
data point. The left edge of the bar goes from (X,150), which is on the 
X-axis, to (X,D(C)), which goes to the point determined by the data entered. 
The line that forms the top of the bar is from (X,D(C)) to (X + BW,D(C)): the 
Y-coordinate remains the same since you want a flat top for the bar, but the 
second X-coordinate is increased by the variable BW, which is the bar width 
in pixels. The right edge of the bar is from (X + BW,D(C)) to (X + BW.150). 
Examine this line closely to see how both the FOR . . . NEXT counter X and 
the bar width BW are used to make drawing the bar simple. 

170 LINEF X,150,X,D(C): LINEF X,D(C),X +BW,D(C): LINEF X + BW, 
D(C),X + BW,150 

Every time a bar is drawn, the COLOR and FILL statements are used in 
line 180 to fill the bar with a random pattern. This helps distinguish the bars 
even more. Finally, line 190 closes the loop. 

180 COLOR 1,3,1,C,3: FILL X + 1,149 
190 NEXT 

Listing 8.5 presents all the program lines in order, along with a sample run 
of the input portion. Figure 8.3 shows the bar graph of this data, and Figure 
8.4 shows the equivalent line graph. 


Suggested Enhancements 

■ Allow the user to enter a title for the chart (for example, XYZ Corp. Quar¬ 
terly Sales 1986-87) and label the period or other quantity represented by 
the bars or pixel points. 
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■ Based on the scale factor, label the Y-axis from zero to the maximum 
amount represented. 

■ For a really ambitious project, combine the Pie Chart program with this 
one so that the user has a choice of three types of graphs. 


Listing 8.5: The Line 
and Bar Graph 
program 


10 REM Line and Bar Graph 
20 FULLW 2: CLEARW 2 
30 DIM D (100) 

A0 PD =1: 0YC = 150 

50 PRINT "Enter data item";PD;: INPUT D(PD) 

60 IF D(PD)=333 THEN CLEARW 2: END 

70 IF D (PD)=0 THEN PD=PD-1: PRINT: INPUT "Bar (1) or Line (2) graph";GCH: GOTO 100 
80 IF D (PD)>BIG THEN BIG=D(PD> 

90 PD =P D + 1 : GOTO 50 
100 CLEARW 2 

110 IN = 120/BIG: FOR 1=1 TO PD: D(I) = 130-<IN+D (I>> : NEXT 
120 LINEF 20,150,600,150: LINEF 20,150,20,20 
130 BW=450/PD 

1 AO FOR X=30 TO 30+ ( (BW + 5)+ PD) STEP BW+5 
150 C=C+1: IF C>PD THEN GOTO 200 

160 IF GCH=2 THEN LINEF X,0YC,X+BW+5,D(C): 0YC=D(C): GOTO 190 

170 LINEF X,150,X,D (C): LINEF X,D (C),X + BW,D(C): LINEF X+BW,D(C),X + BW,150 

180 COLOR 1,3,1,C,3: FILL X+1,149 

190 NEXT 

200 IF INP(2) = ASC ("g") OR INP (2)=AS C("G") THEN CLEARW 2: CLEAR: GOTO 30 


210 GOTO 200 

RUN 
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Figure 8.3: A bar 
graph using the sam¬ 
ple run data 
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m Add an input routine so that the program can suggest which type of chart 
is most appropriate to the data being plotted. 


HINTS FOR PROGRA/miNG 

No matter how well you could write these programs, here are a few gen¬ 
eral tips that might help you when you are creating your own programs with 
your own ideas: 

■ Keep track of variable names, since it’s easy to get them confused. For 
instance, if you are using a variable called PF and switch it accidentally to 
FP, you will probably get an error in the program. The easiest way to 
avoid this problem is to use easy-to-remember variable names that corre¬ 
spond closely with the purpose of the variable. 

■ Don’t try to write the program from line 1 to the end without jumping 
around to its different sections. Most likely, you’ll write the key section of 
the program first and build from there. Writing a program is a process 
of building, improving, and debugging. And, as with art, a program is 
never finished—only abandoned. There will always be more features you 
can add; once the program is at a level where it gets the job done and is 
easy to use and understand, your work is probably done. 

■ Although many authors suggest flow charts, algorithms, and a lot of plan¬ 
ning before you start a program, there aren’t many personal-computer 
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programmers who actually go through these elaborate steps. Most people 
just sit down with a general idea of what they want and start typing. The 
simple planning stages illustrated in this chapter are usually sufficient. A 
lot of the best ideas and features in computer programs emerged during 
the program’s refinement, and sometimes bugs in a program are left in 
since they make interesting new “features.” The key word in program¬ 
ming is spontaneity, and as long as you're familiar with the language, you 
will have more fun and learn a lot more simply by sitting down with an 
idea and proceeding with it. 


WORKING AND PROGRAMMING 
WITH THE ST 

We’ve covered a lot of ground together in this book; by now you should know 
how to write a good ST BASIC program, what’s behind graphics and sounds 
programming, what some of the applications are for your ST and how you can 
challenge yourself to do interesting projects with your computer. 

I’ve worked with computers a long time, so I would like to close this book 
with the three best pieces of advice I have about working with computers: 

■ Experience is the best teacher. Don’t throw a party every time you fix a 
bug in one of your programs, but understand that by stumbling along 
and learning your programming lessons the hard way, you'll be a much 
better programmer than if you’d read ten books and never touched a 
computer. This book was written to give you a head start, but for the most 
part, the best lessons you’ll learn will be self-taught. If you do want more 
outside help, the best resources are users’ groups that cater to the ST, 
magazines that include information about Atari computers, and carefully 
selected computer books. 

■ Wait a few months after some great new product comes out for your 
computer. As tempting as it might be to rush out and purchase every 
innovative program or peripheral that appears, you should sit tight for a 
while, so that it can prove itself and so that the price can fall some. 

■ Make backup copies of your work—as many as you can and as often as 
you can! I have wasted many days of work by not making frequent back¬ 
ups. Remember that the power that a computer has to help you can be 
inverted just as easily to work against you. Your ST can be a powerful 
friend or enemy, depending on how wisely you use it. 

The ST seems to be here to stay. Plenty of improvements, new software, 
and advanced peripherals for this computer will be introduced in the next 
few years. By understanding how to program your Atari and how useful a 
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personal computer can be, you will be able to appreciate your ST a lot 
more, and you will better understand all of the great things that people- 
including yourself—are doing with it. 






ST BASIC 
KEYWORDS 
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Here is an alphabetical listing of ST BASIC’s keywords, their formats and 
purposes, and the chapter in which you can find examples and a more 
thorough description of them. Any keyword not identified as a command or 
function is a statement. 


ABS (Chapter 3) 

Format: 

numeric variable = ABS (numeric expression) 

Purpose: Returns the absolute value of a number; function. 


AND (Chapter 2) 

Format: 

expression 1 AND expression2 

Purpose: Logically tests whether two expressions are true. 


ASC (Chapter 3) 

Format: 

integer variable=ASC(string expression) 

Purpose: Returns the ASCII value of a character; function. 


ATN (Chapter 3) 

Format: 

numeric variable =ATN(numer/c expression) 

Purpose: Returns the arctangent of a number, measured in radians; function. 

AUTO (Chapter 2) 

Format: 

AUTO start, increment 

Purpose: Automatically numbers program lines; direct command. 
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BREAK (Chapter 2) 

Format: 

BREAK line[,line, . . .] 

Purpose: Prints specific lines on the screen as the program encounters them; 
direct command. When the program encounters a line that you have speci¬ 
fied, it stops and displays the line number; to get the program going again, 
type CONT or just press the Return key. 

CHAIN (Chapter 7) 

Formats: 

CHAIN "file name"[,line number,ALL] 

CHAIN MERGE "file name",line, DELETE line number\-line number] 

Purpose: Lets one program load and run another program. In the first for¬ 
mat, the variables from the program in memory can be retained in the pro¬ 
cess. In the second format, the program loaded is merged with the program 
in memory, and certain lines of the old program can be deleted. Both for¬ 
mats let you specify the starting line number in the new program. 

CHR$ (Chapter 3) 

Format: 

string variable = CHR$(numeric expression) 

Purpose: Converts an ASCII number into its corresponding character; function. 

CINT (Chapter 3) 

Format: 

numeric variable = C\NT(numeric expression) 

Purpose: Rounds off a number to its nearest integer value; function. 

CIRCLE (Chapter 4) 

Format: 

CIRCLE X,Y,radius[,starting angle,ending angle] 

Purpose: Draws a circle with center (X,V) and the other arguments you enter; 
angles are measured in tenths of degrees. 
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CLEAR (Chapter 3) 

Format: 

CLEAR 

Purpose: Clears the variables, counters, and arrays in memory; direct command. 


CLEARW (Chapter 2) 

Format: 

CLEARW window number 

Purpose: Clears the contents of the window you specify; the window num¬ 
bers are 0 (Edit), 1 (List), 2 (Output), and 3 (Command). 


CLOSE (Chapter 7) 

Format: 

CLOSE [#]number\,number, . . . ] 
Purpose: Closes particular file numbers. 


CLOSEW (Chapter 2) 

Format: 

CLOSEW window number 

Purpose: Removes a window from the screen: 0 (Edit), 1 (List), 2 (Output), or 
3 (Command). 


COLOR (Chapter 4) 

Format: 

COLOR [fexf color,fill color,line color,style,index] 

Purpose: Sets the color and style of the text, lines, and fill patterns; depend¬ 
ing on context, at least one argument is required. 
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COMMON (Chapter 7) 

Format: 

COMMON variable[,variable, . . . ] 

Purpose: Lets you specify which variables should be retained when the 
CHAIN statement is used. Without COMMON, all the variables can be 
retained. 


CUNT 

Format: 

CONT 

Purpose: Lets a program continue from where it was halted by a STOP or 
BREAK command; direct command. 


CONTRL (Chapter 6) 

Format: 

CONTRL(number) = value 
POKE CONTRL + number*2,value 

Purpose: Variable name used in conjunction with the VDISYS routines; repre¬ 
sents the location of GEM’s VDI control array. 

COS (Chapter 3) 

Format: 

numeric variable = COS (numeric expression) 

Purpose: Returns the cosine of an angle that is measured in radians; 
function. 


CVD, CVI, CVS (Chapter 7) 

Format: 

CVD(eight-character string) 
C\/\(two-character string) 
CVS(four-character string) 
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Purpose: Each of these functions converts a string into a number that a 
random-access file can work with. 


DATA (Chapter 2) 

Format: 

DATA number or string],number or string . . . ] 

Purpose: Holds the numbers and strings that a READ statement requires. 


DEFDBL, DEFINT, DEFSNG, DEFSTR (Chapter 3) 

Format: 

DEFDBL letter[-letter] 

DEFINT /offer[—tetter] 

DEFSNG letter [-letter] 

DEFSTR letter[-letter] 

Purpose: Defines a variable name as double-precision, integer, single¬ 
precision, or a string, respectively. You can also specify a range of variable 
names—DEFINT A-C would make A, B, and C integer variables. 


DEF FN (Chapter 3) 

Format: 

DEF FHFUNCTION NAME(variable[ , variable, . . . ]) = expression 
Purpose: Defines a function under a particular name using certain variables. 

DEF SEG (Chapter 6) 

Format: 

DEF SEG numeric expression 

Purpose: Establishes whether PEEK or POKE statements work with bytes 
(DEF SEG 0) or with two-byte words (DEF SEG 1). 


DELETE (Chapter 2) 
Format: 

DELETE [number-number] 
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Purpose: Removes program lines from memory; specify one number or a 
range; direct command. 


DIM (Chapter 2) 

Format: 

DIM variab/e(subscript[,subscript, . . . ]) 

Purpose: Sets aside a certain amount of memory for a variable array of any 
dimension. 


DIR (Chapter 7) 

Format: 

DIR [drive:search string] 

Purpose: Displays the contents of a disk’s directory; direct command. 


EDIT (Chapter 2) 

Format: 

EDIT [line number] 

Purpose: Puts ST BASIC into the Edit window so that you can modify the 
program in memory; direct command. 

ELLIPSE (Chapter 4) 

Format: 

ELLIPSE X,Y,horizontal radius,vertical radius],starting angle,ending angle] 

Purpose: Draws an ellipse with center (X,Y) and the other arguments you 
specify. 


ELSE (Chapter 2) 

Format: 

IF condition THEN actionl ELSE action2 

Purpose: Part of an IF . . . THEN statement; gives the computer an alternate 
course of action if the condition tested is not true. 
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END (Chapter 2) 

Format: 

END 

Purpose: Stops a program and returns you to the Command window. 


EOF (Chapter 7) 

Format: 

EOF(ft/e number ) 

Purpose: Function; returns 0 until the last item is read from a sequential file, 
then returns -1. 


EQV (Chapter 2) 

Format: 

expression EQV expression 

Purpose: Logical test to see if two expressions are both true or both false. 


ERA (Chapter 7) 

Format: 

ERA [drive:] file name 

Purpose: Erases a file from the disk. 


ERASE (Chapter 3) 

Format: 

ERASE array name],array name, . . . ] 

Purpose: Removes one or more arrays from memory. 

ERL (Chapter 2) 

Format: 

ERL 
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Purpose: Variable; stores the line number where the most recent error 
occurred. 

ERR (Chapter 2) 

Format: 

ERR 

Purpose: Variable; stores the most recent error code encountered. 

ERROR (Chapter 2) 

Format: 

ERROR error code 

Purpose: Simulates an error; direct command. 

EXP (Chapter 3) 

Format: 

numeric variable = EXP(numeric expression) 

Purpose: Returns the value of e (2.71828) raised to the specified power; 
function. 


FIELD (Chapter 7) 

Format: 

FIELD #number, bytes AS string variable),bytes AS string variable, . . . ] 

Purpose: Sets aside a certain number of bytes in memory for variables that 
will be used in a random-access file. 


FILL (Chapter 4) 

Format: 

FILL X,Y 

Purpose: Fills an area using the fill color and pattern set by the most recent 
COLOR statement, beginning at pixel location (X,Y) and ending at the sur¬ 
rounding boundaries. 
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FIX (Chapter 3) 

Format: 

numeric variable = FIX(/ 7 tvmer/c expression) 

Purpose: Eliminates the decimal portion of a number; function. 

FOLLOW (Chapter 2) 

Format: 

FOLLOW variable[,variable, . . . ] 

Purpose: Makes the computer display the value of the variable(s) you specify 
while a program is running; direct command. 

FOR (Chapter 2) 

Format: 

FOR index = start TO finish [STEP increment] 
body of loop 
NEXT 

Purpose: The first part of a FOR . . . NEXT loop. 

FULLW (Chapter 4) 

Format: 

FULLW window number 

Purpose: Makes the window you specify fill the entire screen. 

GEMSYS (Chapter 6) 

Format: 

GEMSYS (opcode) 

Purpose: Function; initiates an application environment system (AES) func¬ 
tion. 


GET (Chapter 7) 

Format: 

GET ff number,record number 
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Purpose: Retrieves a record from a random-access file. 

GOSUB (Chapter 2) 

Format: 

GOSUB line number or label[,line number or label, . . . ] 

Purpose: Transfers control to a certain program line or lines; when a 
RETURN is encountered, the computer will go back to the point in the pro¬ 
gram immediately following the GOSUB. 

GOTO (Chapter 2) 

Format: 

GOTO line number or label 

Purpose: Transfers program execution to a certain line number in the 
program. 

GOTOXY (Chapter 3) 

Format: 

GOTOXY column,row 

Purpose: Positions the text cursor at the specified column and row on the 
screen. 

HEX$ (Chapter 3) 

Format: 

numeric variable = HEX$(numeric expression) 

Purpose: Converts a decimal number into hexadecimal (base 16); function. 

IF (Chapter 2) 

Format: 

IF condition THEN actionl [ELSE action2] 

Purpose: First part of an IF . . . THEN statement; immediately followed by a 
logical test. 
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INP (Chapter 7) 

Format: 

INP (port) 

Purpose: Function; gets one byte of information from the port you specify: 
printer (0), RS232 port (1), keyboard (2), MIDI (3). 


INPUT (Chapter 2) 

Format: 

INPUT ["prompt'Y,variable[,variable, . . . ] 

Purpose: Retrieves numeric or string data from the keyboard; you can use a 
prompt string to tell the user what information is needed, or you can leave 
out the prompt; an entry is terminated by a RETURN. 


INPUT (Chapter 7) 

Format: 

INPUT ttnumber,variable[,variable, . . . ] 

Purpose: Loads a line of data from the disk drive; a sequential file must be 
open for this statement to work. 


INSTR (Chapter 3) 

Format: 

INSTR ([starting character,] string being searched, string to search for) 

Purpose: Function; returns the starting position of the string you want to find 
within a search string. If you specify a starting character position, the com¬ 
puter will begin looking at that character position within the search string to 
find your string. 


INT (Chapter 3) 

Format: 

numeric variable = \MT(numeric expression) 

Purpose: Rounds a number down to the nearest whole number; function. 
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INTIN (Chapter 6) 

Format: 

INTlN(number) = value 
POKE INTIN + number*2,value 

Purpose: Variable for use with VDISYS functions; always stored in memory. 

INTOUT (Chapter 7) 

Format: 

\NTOUT(number) 

PEEK(INTOUT + number *2) 

Purpose: Variable used with VDISYS to retrieve a byte of data rather than 
store it. 

KILL (Chapter 7) 

Format: 

KILL “string” or string expression 

Purpose: Removes a file from a disk; KILL is more versatile than ERA since 
you can use KILL within a program. 

LEFTS (Chapter 3) 

Format: 

string = LEFT$(parent string,number of characters) 

Purpose: Function; extracts a certain number of characters from the left side 
of a string. Only the parent string remains unaltered. 

LEN (Chapter 3) 

Format: 

integer = LEN (string expression) 

Purpose: Returns the number of characters in a string; function. 
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LET (Chapter 2) 

Format: 

LET variable name = expression 

Purpose: Assigns a value or string to a variable name; LET is almost never 
used, since you can type variable name = expression directly and achieve the 
same result. 


LINEF (Chapter 4) 

Format: 

LINEF XI ,Y1 ,X2,Y2 

Purpose: Draws a line from (X1.Y1) to (X2,Y2). 


LINE INPUT (Chapter 2 ) 

Format: 

LINE INPUT ["prompt';] string variable 

Purpose: Allows you to enter a string of information with quotation marks, 
commas, and any other punctuation usually not allowed with INPUT 


LINE INPUT (Chapter 7) 

Format: 

LINE INPUT #number,string variable 

Purpose: Like INPUT#, this command obtains information directly from the 
disk drive; however, the arguments can contain characters usually not 
allowed with INPUT#, such as commas, quotation marks, and semicolons. 


LIST (Chapter 2) 

Format: 

LIST [line number-line number] 

Purpose: Displays all or part of the program currently in memory; direct 
command. 
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LUST (Chapter 7) 

Format: 

LUST [line number-line number] 

Purpose: Sends all or part of the program currently in memory to the printer; 
direct command. 


LOAD (Chapter 2) 

Format: 

LOAD file name 

Purpose: Takes a program from the disk drive and loads it into memory; 
direct command. 


LOC (Chapter 7) 

Format: 

LOC (file number) 

Purpose: Function; returns either the number of the last record accessed 
when using a random-access file or the number of records handled since the 
file was opened when using a sequential file. 


LOF (Chapter 7) 

Format: 

LOF (#///e number) 

Purpose: Returns the length of a file measured in bytes; function. 


LOG (Chapter 3) 

Format: 

numeric variable = LOG(numeric expression) 

Purpose: Returns the natural logarithm of a number; function. 
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LOG 10 (Chapter 3) 

Format: 

numeric variable = LOG 1 0(numeric expression) 

Purpose: Returns the base-10 logarithm of a number; function. 


LPOS (Chapter 7) 

Format: 

LPOS (0) 

Purpose: Determines the current position of the printer’s print head; function. 


LPRINT (Chapter 7) 

Format: 

LPRINT expression 

Purpose: Prints a string, number, or other expression to the printer. 


LSET (Chapter 7) 

Format: 

LSET newstring = oldstring 

Purpose: Prepares a string to be saved to a random-access file under the 
name newstring. 


MERGE (Chapter 7) 

Format: 

MERGE file name 

Purpose: Loads a file from the disk and combines it with the file in memory; 
direct command. 

MID$ (Chapter 3) 

Formats: 

string variable = WD$(string, starting point, length) 

WD$(string, starting point, length) = string expression 
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Purpose: Function; the first format finds a string segment of a certain length 
starting at a beginning character within the string. This segment is stored in 
the specified variable. The second format stores a new string segment within 
a string beginning at a certain character position and continuing for length 
characters. 


MKD$, MKIS , MKS$ (Chapter 7) 

Formats: 

MKD$(numer/c value) 

MKl$(numeric value) 

M KS$(numeric value) 

Purpose: When you convert a string into a number with CVD, CVI, or CVS, 
one of these functions must be used to convert that number back into a 
string; use the function corresponding to the type of value that is loaded 
from the random-access file; use MKD$ for double-precision numbers, MKS$ 
for single-precision numbers, or MKIS for integers. 


MOD (Chapter 3) 

Format: 

numeric variable = number MOD divisor 

Purpose: Returns the remainder from a division of number by divisor. 

NAME (Chapter 7) 

Format: 

NAME oldname AS newname 

Purpose: Changes the name of a file from oldname to newname. 


NEW (Chapter 2) 

Format: 

NEW 

Purpose: Removes the program and variables from memory (clears the 
entire BASIC work area); direct command. 
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NEXT (Chapter 2) 

Format: 

NEXT 

Purpose: Closes a FOR . . . NEXT loop; when NEXT is encountered, the 
computer loops back again. 


NOT (Chapter 2) 

Format: 

NOT expression 

Purpose: This logical expression reverses the outcome of any other logical 
test. True becomes false and false becomes true. 


OCT$ (Chapter 3) 

Format: 

numeric variable = OCT$(numeric expression) 

Purpose: Converts a decimal number into octal (base 8); function. 


ON (Chapter 2) 

Formats: 

ON variable GOTO line or labei[Jine or label, . . . ] 

ON variable GOSUB line or iabei\Jine or label, . . . ] 

ON ERROR GOTO line or label 

Purpose: Makes the computer go to the line number corresponding to the 
value of the variable; if the variable is equal to 1, the computer goes to 
the first line number specified, if the variable equals 2, the computer goes to the 
second line number specified, and so on. Either GOTO or GOSUB works with 
ON, and ON ERROR GOTO will make the computer go to the line number 
specified if an error is encountered anywhere in the program. 


OPEN (Chapter 7) 

Format: 

OPEN "type"^number,"file name"[,length] 
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Purpose: Opens a file so that it can be used for random-access or sequential 
records; the type is “0” for sequential file output, “I” for sequential file input, 
or “FT for random file input/output; a file’s standard length is 128 bytes. 


OPENW (Chapter 2) 

Format: 

OPENW window number 

Purpose: Makes a window appear on the screen, overwriting all the other 
windows; the windows are 0 (Edit), 1 (List), 2 (Output), and 3 (Command). 


OPTION BASE (Chapter 2) 

Format: 

OPTION BASE 0 or 1 

Purpose: Establishes the first element (index) for variable arrays; OPTION 
BASE 0 makes H(0) the first element in the H() array, and OPTION BASE 1 
makes H(1) the first element in the same array. 

OR (Chapter 2) 

Format: 

expression 1 OR expression2 

Purpose: This logical test returns a value of true if either or both of the 
expressions are true. 

OUT (Chapter 7) 

Format: 

OUT port,byte 

Purpose: Sends a byte to the specified port. 


PCIRCLE (Chapter 4) 

Format: 

PCIRCLE X,Y,radius[,starting angle,ending angle] 
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Purpose: Draws a filled circle in the current color with radius (X,Y) and the 
other arguments specified. 


PEEK (Chapter 7) 

Format: 

PEEK(aofQfress) 

Purpose: Returns the byte value located at the memory address you specify; 
function. 


PELLIPSE (Chapter 4) 

Format: 

PELLIPSE X,Y,horizontal radius,vertical radius[,starting angle,ending angle] 
Purpose: Draws a filled ellipse with center (X,Y) and the other arguments. 


POKE (Chapter 4, 6) 

Format: 

POKE memory location,data value 

Purpose: Stores a value at the memory location you specify. 


POS (0) (Chapter 3) 

Format: 

integer value = POS (0) 

Purpose: Returns the current horizontal location of the text cursor; function. 
The zero is a “dummy” argument. 


PRINT (Chapter 2) 
Formats: 

PRINT expression 
? expression 


Purpose: Displays a string, numeric expression, or variable on the screen. 
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PRINT # (Chapter 7) 

Format: 

PRINT Unumber,item],item, . . . ] 

Purpose: Sends information to the file that is currently open. 

PR/NT USING (Chapter 3) 

Format: 

PRINT USING string; variable or number[,variable or number, . . . ] 

Purpose: Prints an item on the screen using the format specified by the 
string; you can also use PRINT# USING to send information to the file that is 
currently open, using a predefined format. 


PTSIN (Chapter 6) 

Format: 

PTSIN(number) = value 
POKE PTSIN + number*2,value 

Purpose: Variable used with VDISYS functions to pass certain arguments to 
VDI. 

PTSOUT (Chapter 6) 

Format: 

PTSOUT(number) 

PEEK(PTSOUT + number *2) 

Purpose: Variable used to read a value related to the output from a VDISYS 
operation. 


PUT (Chapter 7) 

Format: 

PUT #number\,record number] 

Purpose: Takes information that has been stored with LSET or RSET and 
puts it into the file you name. You can also specify the record number of the 
information you are storing. 
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QUIT (Chapter 1) 

Format: 

QUIT 

Purpose: Makes the computer leave ST BASIC and return to the GEM 
Desktop; direct command. Be sure to save anything you are working on in 
BASIC before using this command if you don’t want to lose it. 


RANDOMIZE (Chapter 3) 

Format: 

RANDOMIZE number 

Purpose: Reseeds the random-number generator. 


READ (Chapter 2) 

Format: 

READ variable^variable, . . . ] 

Purpose: Takes information from DATA statements and stores it into variables. 


REM (Chapter 2) 

Formats: 

REM comment 
' comment 

Purpose: Makes the computer ignore the rest of the program line so that you 
can include comments to yourself or others about the program’s contents. 


RENUM (Chapter 2) 

Format: 

RENUM new line,starting line number[,increment] 

Purpose: Renumbers the program in memory beginning at the starting line 
so that it begins with a new first line and progresses at increments you spec¬ 
ify; direct command. 
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REPLACE 

Format: 

REPLACE "file name" [line number-line number] 

Purpose: Saves the program from memory, replacing a file that already exists 
on the disk; you can specify which line numbers of the program stored on 
the disk you want replaced by those currently in memory 

RESTORE (Chapter 2) 

Format: 

RESTORE [line number] 

Purpose: Makes the computer forget where it last read a DATA statement so 
that when it uses READ to get its next data item, it will start at the beginning 
DATA statement and the very next item; allows BASIC to reread or reuse an 
entire set of DATA statements. 


RESUME (Chapter 2) 

Format: 

RESUME [line number] 

Purpose: Starts the program running again at a certain line after an error has 
been encountered; this statement works in conjunction with ON ERROR 
GOTO. 

RETURN (Chapter 2) 

Format: 

RETURN 

Purpose: After a GOSUB has been issued, this statement will send the com¬ 
puter back to the line where it was when the GOSUB was encountered. 


RIGHTS (Chapter 3) 

Format: 

string = R\GHT$(parent string, number of characters) 

Purpose: Function; extracts a certain number of characters from the right 
side of a string. The string remains unaltered. 
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RND (Chapter 3) 

Format: 

numeric variable = RND[(number)] 

Purpose: Generates a random number between 0 and 1; function. 


RSET (Chapter 7) 

Format: 

RSET newstring = string 

Purpose: Works just like LSET, since it prepares a string for random-access 
file storage. However, if there are any allocated spaces remaining because 
the string is smaller than the allocated space, everything left of the string will 
be filled with blanks. 


RUN (Chapter 2) 

Format: 

RUN [line number] 

Purpose: Starts a program; if you specify a line number, the program will 
begin at that line number; direct command. 


SAVE (Chapter 2) 

Format: 

SAVE "file name" 

Purpose: Stores the program that is in memory onto the disk with the name 
you specify; direct command. 


SGN (Chapter 3) 

Format: 

numeric variable = SGN(numeric expression) 

Purpose: Returns 1 if the number is positive, 0 if the number is 0, and -1 if 
the number is negative; function. 
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SIN (Chapter 3) 

Format: 

numeric variable = S\N(numeric expression) 

Purpose: Returns the sine of the angle expressed in radians; function. 

SOUND (Chapter 5) 

Format: 

SOUND voice,volume,note,octave,duration 
Purpose: Plays a musical tone or noise. 

SPACES (Chapter 3) 

Format: 

string variable = SPACE$(numeric expression) 

Purpose: Prints a specified number of blank spaces; function. 

SPC (Chapter 3) 

Format: 

PRINT SPC (numeric expression) 

Purpose: Function; returns a number of blank spaces in conjunction with the 
PRINT PRINT#, or LPRINT statements. 

~SQR~ (Chapter 3) 

Format: 

numeric variable = SQR(numeric expression) 

Purpose: Returns the square root of a number; function. 

STEP (Chapter 2) 

Format: 

STEP 
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Purpose: Puts ST BASIC into the debugging mode so that each program line 
is executed individually and then pauses for you to press the Return key; 
direct command. 


STOP (Chapter 2) 

Format: 

STOP 

Purpose: Puts ST BASIC into the break mode and halts the program. 


STR$ (Chapter 3) 

Format: 

string variable = STR $(numeric expression) 

Purpose: Function; takes a number and converts it into a string. 


STRINGS (Chapter 3) 

Format: 

STR\NG$(number,character) 

Purpose: Function; makes a string consisting of the number of the characters 
you specify. The character can be the ASCII code for that character or the 
character itself within quotes. 


SWAP (Chapter 3) 

Format: 

SWAP variablel, variable2 

Purpose: Switches the values of two variables. 


SYSTEM (Chapter 1) 

Format: 

SYSTEM 

Purpose: Makes the computer abandon ST BASIC and go to the GEM Desk¬ 
top; direct command. 
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TAB (Chapter 3) 

Format: 

PRINT TAB(fa£> position)["string"] 

Purpose: Makes the text cursor move to the right a certain number of 
spaces; function. 


TAN (Chapter 3) 

Format: 

numeric variable = TAN(numeric expression) 

Purpose: Finds the tangent of an angle measured in radians; function. 


Trace 

Format: 

TRACE line number-line number 

Purpose: Displays the contents of program lines as they are executed; direct 
command. You can specify the lines or range of lines that you want traced. 
As the program is running, BASIC will display each line in the command win¬ 
dow as it is executed. This can be an excellent debugging tool. 


TROFF 

Format: 

TROFF line number-line number 

Purpose: Direct command; turns off the TRON command. By specifying line 
numbers, you can turn off specific program lines that are being followed. 


TRON 

Format: 

TRON line number-line number 

Purpose: Makes the computer display the numbers of program lines as they 
are executed. You can specify certain line numbers or ranges of lines that 
should be displayed as they are encountered. This direct command, like 
TRACE, is excellent for debugging. However, the contents of the program 
lines are not displayed as they are run—only the line numbers are. 
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UNBREAK 

Format: 

UNBREAK 

Purpose: Direct command; turns off the BREAK command. 


UNFOLLOW (Chapter 2) 

Format: 

UNFOLLOW 

Purpose: Direct command; turns off the FOLLOW command. 


UNTRACE 

Format: 

UNTRACE 

Purpose: Direct command; turns off the TRACE command. 

VAL (Chapter 3) 

Format: 

numeric variable=VAL(string of digits) 

Purpose: Returns the numeric value of a string; function. 


VDISYS (Chapter 6) 

Format: 

VDISVS(I) 

Purpose: Function; executes a virtual device interface (VDI) function. 


WAIT (Chapter 7) 

Format: 

WAIT port,number 

Purpose: Makes the computer wait until a certain ASCII byte appears in the 
port you specify before the program continues. 
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WAVE (Chapter 5) 

Format: 

WAVE enable],envelope,shape,period,delay] 

Purpose: Alters the characteristics of the sound that is produced; by itself, 
WAVE can also produce sound effects. 

WEND (Chapter 2) 

Format: 

WEND 

Purpose: Closes a WHILE . . . WEND loop. 

WHILE (Chapter 2) 

Format: 

WHILE expression 
body of loop 
WEND 

Purpose: Sets up a condition so that a WHILE . . . WEND loop can continue 
until that expression becomes logically true. 

WIDTH (Chapter 7) 

Format: 

WIDTH expression 

Purpose: Changes the length of the screen line; if you type WIDTH LPRINT 
followed by a number, the length of the printer line will be changed to that 
number of characters. 

WRITE or WRITE# (Chapter 7) 

Formats: 

WRITE variable or string datalvariable or string data, . . . ] 

WRITE Uvariable or string data[,#variabie or string data, . . .] 

Purpose: Sends information to the screen or a sequential file. The information 
sent is enclosed by quotes, and although WRITE works almost exactly like 
the PRINT statement, WRITE# sends information to the disk drive. 
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When ST BASIC encounters a programming error, it will display the error 
message along with the line number where the error occurred. Here is a list 
of the error codes you might get in ST BASIC, their meanings, and some 
possible solutions to eliminate the error. 


Error 2 

Something is wrong 

On most computers, this is known as a syntax error, which means that 
you've made a mistake in the format of your command. Make sure all of the 
parentheses, commas, quotation marks, and other command parameters are 
correct. Unfortunately, ST BASIC sometimes displays this vague message 
even when more specific errors are defined. 


Error 3 

RETURN statement needs a matching GOSUB 

You have at least one too many RETURN statements in your program. If the 
computer encounters a RETURN and there has been no previous GOSUB, 
this error message will appear. Trace the GOSUBs and RETURNS in your 
program and find a way for the program to avoid the RETURN before it 
reaches GOSUB. 


Error 4 

READ statement ran out of data 

You haven't put enough information after the DATA statements, you’ve made 
an error while typing the information (such as leaving out a comma), or you 
are trying to READ more than you intended. Check all your READ and DATA 
statements carefully and make sure that the amount of information you are 
trying to read is equal to the amount of data available. 


Error 5 

Function call not allowed 

You have attempted a function that does not exist or is not allowed. 
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Error 6 

Number is too large 

The ST can only handle numbers up to a certain size, depending on the pre¬ 
cision of the numeric variable. When the number of bytes you have allocated 
by defining the variable’s type isn’t enough for the number you are trying to 
create, this error will occur. Change the type of variable you are working with 
(to double-precision, for example), or find a way to reduce the size of the 
number. 


Error 7 

Not enough memory 

The ST’s memory is not large enough to accommodate the program you are 
trying to run or the action you are trying to commence. Reduce the memory 
requirements by using the CHAIN statement or trimming down your program. 


Error 8 

A statement or a command refers to a nonexistent line 

Check your GOTO and GOSUB statements to find the one that is trying to 
reach a line number that does not exist in the program. 


Error 9 

Subscript refers to element outside the array 

You are trying to use an element of a variable array that cannot be used. For 
example, if DIM Y(20) was at the beginning of your program and you typed 
Y(21)=5, you would get this error because you did not allow enough space 
to accommodate this twenty-first element. Three possible solutions are 
increasing the size allocated by DIM, changing the variables you are trying 
to use so that they fit within the bounds of the DIM statements, or using 
OPTION BASE in case the 0 element caused the error. 
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Error 10 

You defined an array more than once 

You can only use DIM once to set aside room for a variable array. If you 
want to redimension an array, you will either have to use CLEAR to get rid of 
all the variables or ERASE to get rid of a specific array. 


Error / / 

You cannot divide by zero 

Check the contents of the line where this error occurred to determine where 
a division operation was attempted using 0 as a divisor. You cannot divide 
anything by 0, so correct the part of the program so that the divisor is never 
equal to 0. 


Error 12 

Statement is illegal in direct mode 

You use the command (or direct) mode when typing instructions directly, but 
program lines are stored in memory and can be examined later. Some ST 
BASIC keywords cannot be used directly in the command mode and, 
instead, should be used as program statements. 


Error 13 

Types of values do not match 

If you attempt an operation that expects one type of variable (such as a 
string, single-precision, integer, or double-precision) but gets another, you will 
get this error message. 

Error 15 

Strings cannot be over 255 characters long 

You tried to make a string that exceeded 255 characters; shorten the string 
to eliminate the problem. 










ST BASIC ERROR MESSAGES 


287 


Error 16 

Expression is too long or too complex 

The ST cannot handle lines that are overly complicated, so you should break 
the line into two or three smaller operations. 


Error 17 

CONT works only in break mode 

The purpose of the CONT command is to get a program running again after 
a BREAK command has been issued. If you try to use CONT when the ST is 
not in the break mode, you will get this error message. 


Error Id 

Function needs prior definition with DEF FN 

You have tried to use an FN function without defining it first. Define it with 
DEF FN in an earlier part of the program. 


Error 20 

RESUME statement found before error routine entered 

If BASIC hasn’t encountered an error, there’s no reason RESUME should be 
used. Eliminate the RESUME or find a way for the program to avoid it unless 
an error occurs (with the ON ERROR GOTO statement). 


Error 22 

Expression has operator with no following operand 

You have tried to issue a command, statement, or function with an operator 
without completing it; for example, if you typed PRINT 2+, the computer 
would expect another number to add to 2. However, ST BASIC may detect 
this as simply a “syntax error" and print error 2, Something is wrong, 
instead. 
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Error 23 

Program line too long 

Instead of having one long program line, divide it into two or three consecu¬ 
tive lines. The maximum length allowed is 255 characters, but in some 
circumstances you may get this message with fewer characters. 


Error 30 

Window number invalid 

The window number used with OPENW or CLOSEW can only be 0, 1, 2, or 3. 


Error 31 

Argument out of range 

The number you are using as an argument is too large; reduce it. 

Error 32 

Command cannot be executed from the editor 

You tried to issue a command while in the edit mode that the computer can 
use only when in the command or program mode. 

Error 33 

Line is too complex 

The formula you are using in the program line is too complex; break it into 
two or three lines instead. 

Error 50 

FIELD statement caused overflow 

If you try to allocate too many bytes for a variable, this error will occur. 












289 


ST BASIC ERROR MESSAGES 


Error 51 

Device number invalid 

You tried to use the OPEN statement with a device number that does not 
exist. 


Error 52 

File number or filename invalid 

You have tried to refer to a file with a name or number that either doesn’t 
exist or is not open. 


Error 53 

File not found on disk drive specified 

You attempted to load a file that is not on the disk. Use the DIR command to 
see the contents of the disk currently in the drive. 

Error 54 

File mode is not valid 

Sequential files and random-access files cannot be mixed, and if you use 
PUT, GET LOF, or other file commands with the wrong type of file, this error 
will occur. 

Error 55 

You cannot OPEN or KILL a file already open 

The file that is currently open must be closed before you can reopen it or 
eliminate it. 

Error 57 


Disk input/output error 
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Your disk may be faulty, the disk drive may be malfunctioning, or perhaps 
the cable to the drive is loose. Check your hardware if this error occurs, and 
if the system seems to have “bombed,” you’ll have to reset the computer to 
restart it. 


Error 58 

File exists 

You have tried to save to the disk a file that already exists. Use another com¬ 
mand (such as REPLACE) to replace the file on the disk with the one in 
memory. 


Error 61 

Disk is full 

There isn’t enough space on the disk to save the file you want to save. Use 
another disk or eliminate unwanted files on the current disk. 


Error 62 

You have reached end-of-file 

If you are loading sequential file records, you will get this error message if 
you try to go past the end of the file. Use the EOF function to avoid this 
error. 


Error 63 

The record number in PUT or GET is more than 32767 or zero 

You can’t specify a record number less than 1 or greater than 32767. 


Error 64 

Invalid filename 

This is usually caused by having too many characters in a file name. Give 
the file you are trying to load, save, or erase a different name. 
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Error 65 

Invalid character (character number) in program file 

If you try to load a file that has faulty data (perhaps due to a bad disk), this 
error will appear. Try resaving the file and verify its accuracy, or alter the file 
data so that any illegal characters in it are eliminated. Remember that data in 
a file must be ordered so that it corresponds to what is trying to be read; 
you can't read a string into a numeric variable, for instance. 


Error 99 

—Break— 

When you enter the break mode (because of a BREAK or STOP command), 
this “error” message will be displayed. It does not indicate that anything is 
wrong. Type CONT to resume the program. 


Error 101 

Program has too many lines 

You’ve run out of memory; eliminate some unnecessary lines or break the 
program into several parts and connect them with CHAIN statements. 


Error / 02 

Statement is out of range 

The variable used with the ON statement is too large to be associated with 
any of the line numbers you specified. If A was equal to 5, for instance, and 
you typed ON A GOTO 100,200, the computer would not know where to go, 
since A was not equal to 1 or 2. Find out why the variable is larger than you 
want it to be. 


Error 103 

Invalid line number 

You tried to use a line number larger than 65529, which is the limit. 










292 


UNDERSTANDING ATARI ST BASIC PROGRAMMING 


Error 104 

A variable is required 

You have tried using a math function without including the necessary vari¬ 
able. Check the line and add the variable you want to use with the math 
function. 


Error 106 

Line number does not exist 

The program refers to a nonexistent line number with GOTO, GOSUB, or 
another statement. 


Error 107 

Number too large for an integer 

Integers can range from -32768 to 32767; if you try to exceed these 
bounds with an integer variable, error 107 will occur. 


Error 108 

Input data is not valid, restart input from first item 

You tried to enter data that did not correspond with what the INPUT state¬ 
ment requires. If INPUT is waiting for a numeric variable, it will not accept a 
string in its place, nor will INPUT take too few or too many pieces of data 
when it expects a certain number of items to be input. 


Error 109 
Stop 


Like error 99, this isn't a true error; it simply indicates that a STOP statement 
was encountered. 
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Error 110 

You have nested subroutine calls too deep 

You have probably made too many GOSUB calls without any RETURNS. 
Eliminate some GOSUBs and find a different way to get the same result. 


Error 111 

Invalid BLOAD file 

BLOAD loads a binary file, and if you try to load a different type of file with 
this command, this error will occur. 


Error 202 

Command not allowed here 

Some commands don’t work in certain modes; ERA, for instance, will not 
work within a program. Eliminate the command and find a new one to take 
its place, or go to a different mode. 

Error 203 “ 

Line number is required 

If you try to use a keyword in the command mode that is allowed only within 
a program, this error will occur. 


Error 204 

FOR statement needs a NEXT or WHILE needs a WEND 

You don’t have enough NEXT or WEND statements to correspond with your 
FOR or WHILE statements. 

Error 205 " 


NEXT statement needs a FOR or WEND needs a WHILE 
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You have too many NEXT or WEND statements for the FOR and WHILE 
statements in the program. 


Error 206 

A comma is expected 

If the INPUT statement receives data that is not separated by commas, this 
error message will be displayed. 


Error 207 

A parenthesis is expected 

The DEF FN statement requires parentheses, and you did not include one of 
them. 


Error 208 

OPTION BASE must be 0 or 1 

The lowest element in a variable array can be either 0 or 1; you tried to set 
the lowest element at a number other than 0 or 1 with OPTION BASE. 


Error 209 

Too many arguments in your list 

You included more arguments than the function requires. Eliminate the 
unnecessary arguments. 


Error 213 

Function defined more than once 

If you try to use DEF FN with the same function name more than once, this 
error message will be displayed. Change the name of the second function 
definition or eliminate it. 
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Error 214 

You are trying to jump into a loop 

You can’t go to part of an ST BASIC program that is between the FOR and 
NEXT or WHILE and WEND statements. 

IrroFlFl 

System error#n, please restart 

A serious error has occurred, and you’ll have to restart ST BASIC from the 
GEM Desktop. 

Error 222 

Program not run 

If the computer discovers an error before it starts to run the program, it will dis¬ 
play this message so you can go into the edit mode and track down the error. 

~EfroF223 

Too many FOR loops 


You are nesting too many FOR loops; eliminate some of them. 
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The following is a brief outline of the steps involved in setting up the ST 
computer. 


SETUP 

1. Unpack the monitor, keyboard, and (if you have a 520ST) disk drive from 
their boxes and place them on a flat, stable surface. 

2. Make sure all the power switches are turned off, then connect the main 
power supply from the keyboard console (where it is marked Power) to an 
outlet. 

3. Plug the mouse into port 0 on the right side of the ST. 

4. Put your monitor where you want it located, then attach the video cable 
from the monitor to the keyboard console. Next, attach the monitor’s 
power cable from the monitor to a wall outlet. 

5. If you have a 520ST or an extra external drive, attach the floppy-disk 
drive’s interface cable from the keyboard console to the disk drive. Also, 
attach the drive’s power cable from the power port on the first disk drive 
to a wall outlet. 

6. If you have two external disk drives, connect the second disk drive’s 
power cable from the drive into a wall outlet, then use the interface cable 
to connect the second drive to the first drive. 


PROTECTING YOUR COMPUTER SYSTEM 

At this point, your computer system should be fully connected. Before pro¬ 
ceeding, make sure every component is on a flat surface and is solidly 
placed so that there is no chance of anything falling off. The location of the 
system is important, so make sure you keep the following points in mind. 

■ Make sure you can’t trip over any of the power or interface cables. Such a 
mishap could turn off your computer and erase the information in memory, 
and it also might pull one or more pieces of your computer to the floor. 

■ Keep drinks, food, smoke, and small children away from the system. The 
ST is a valuable tool, so it’s worth the extra trouble to make sure you 
don’t waste any time (or money) while it’s in the repair shop. 

■ If the electricity in your home is unpredictable, you might want to get a 
power-surge protector. For about $30, you can purchase a device that 
plugs into the outlet you are using for the computer to protect it from 
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power spikes. There are even devices that serve as temporary power 
sources if the power goes out in your area so that you’ll have time to 
save important information. However, it’s cheaper just to keep saving files 
to disk and making backup copies in case anything should happen to the 
originals. There’s nothing worse than losing information to a computer, 
especially since there’s almost no way to get it back. The convenience 
that a computer provides is equalled by the inconvenience it can bring if 
you don’t use it properly. 


GETTING STARTED 

Turn on your computer: first the monitor, then the disk drive, and finally the 
keyboard unit. If you have an older 520ST without the ROM chip, your 
screen should display a message telling you to put the System Disk into the 
disk drive. Insert the System Disk, and your ST will load it into memory. In 
the future, you can insert the System Disk before you turn on your computer 
so that you don’t have to pause for the message. Once the System Disk fin¬ 
ishes loading, four items will appear on the screen: the icons for floppy-disk 
A, floppy-disk B, and the trash can, and the menu bar. You are now in the 
GEM Desktop. 

If you have a 1040ST or a newer 520ST (one sold since February 1986), 
simply turn on first the monitor, then the external disk drive (if any), and 
finally the computer itself. The GEM Desktop will appear. The Desktop will 
appear sooner if you already have a disk—the Language Disk, an applica¬ 
tion disk, or one of your own program disks—in the drive before you turn on 
the system. In any case, you will need to insert a disk once the Desktop 
appears if you want to proceed any further. 
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The following table lists all of the characters and corresponding numbers 
in the Atari ST version of the American Standard Code for Information Inter¬ 
change. As described in Chapter 3, you can use the ASC function to convert 
a character to its numeric ASCII value, and the CHR$ function to convert a 
number to a character. 

The following are nonprinting characters: 


0 

Null 



7 

Bell 



10 

Line Feed 



13 

Carriage return 



32 

Space 



ASCII Value 

Character 

ASCII Value 

Character 

1 

0 

38 

& 

2 

0 

39 

■ 

3 

❖ 

48 

C 

4 


41 

3 

5 

►n 

42 

* 

6 

K 

43 

+ 

7 


44 

» 

8 

✓ 

45 


9 

0 

46 

m 

18 


47 

/ 



48 

8 

11 


49 

1 

12 

•f 

58 

2 

13 


51 

3 

14 

J\ 

52 

4 

15 

11 

53 

5 

16 

n 

u 

54 

6 

17 

■ 

■ 

55 

7 

18 

a 

56 

8 

19 

3 

57 

9 

28 

H 

58 

■ 

■ 

21 

s 

59 

■ 

1 

22 

& 

68 

< 

23 

a 

61 


24 

8 

62 

> 

25 

3 

63 

-> 

26 

a 

64 

e 

27 


65 

A 

28 

£ 

66 

B 

29 


67 

c 

38 

X 

68 

D 

31 

$ 

69 

E 

32 


78 

F 

33 

■ 

71 

G 

34 

■ I 

72 

H 

35 

II 

73 

I 

36 

$ 

74 

J 

37 

y .: 

75 

K 
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ASCII Value 

Character 

ASCII Value 

Chars 

76 

L 

138 

e- 

IT 

M 

131 

3 

78 

N 

132 

a 

79 

0 

133 

•a 

88 

P 

134 

a 

81 

G 

135 

9 

82 

R 

136 

e 

83 

S 

137 

0 

84 

T 

138 

e- 

85 

U 

139 

i 

86 

U 

148 

"l 

87 

M 

141 

i 

88 

X 

142 

A 

89 

V 

143 

A 

98 

z 

144 

£ 

91 

[ 

145 

SB 

92 

s 

146 

£ 

93 

J 

147 

o 

94 

A 

148 

o 

95 

_ 

149 

o 

96 

■v 

158 

u 

97 

a 

151 

u 

98 

b 

152 

y 

99 

c 

153 

o 

188 

d 

154 

u 

181 

e 

155 


182 

f 

156 

£ 

183 

9 

157 

V 

184 

h 

158 

0 

185 

i 

159 

f 

186 

j 

168 

a 

187 

k 

161 

£ 

188 

1 

162 

6 

189 

n 

163 

u 

118 

n 

164 

n 

111 

o 

165 

N 

112 

P 

166 

a 

113 

q 

167 

o 

114 

r 

168 

6 

115 

s 

169 

r 

116 

* 

178 

T 

117 

u 

171 

54 

118 

V 

172 

B 4 

119 

u 

173 

i 

128 

X 

174 

« 

121 

y 

175 


122 

z 

176 

JV 

a 

123 

£ 

177 

o 

124 

1 

178 

0 

125 


179 

0 

126 


188 

© 

127 

L 

181 

OE 

128 

9 

182 

A 

129 

u 

183 

JV 

A 
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ASCII Value 

Character 

ASCII Value 

Charac 

184 

0 

220 

Y 

185 


221 

§ 

18S 

* 

222 

A 

187 

t 

223 

CO 

188 

qi 

224 

oc 

189 

© 

225 

e 

198 

© 

226 

r 

191 

TM 

227 

IF 

192 

ij 

228 

£ 

193 

IJ 

229 

6 

194 

N 

230 

II 

195 

3 

231 

T 

196 

A 

232 

5 

197 

T 

233 

6 

198 

n 

234 

n 

199 

i 

235 

6 

288 


236 

f 

281 

n 

237 

0 

282 

13 

238 

E 

283 

T 

239 

n 

284 

□ 

240 

= 

205 

“3 

241 

+ 

286 

n 

242 

> 

287 

3 

243 

< 

208 

0 

244 

p 

209 

u 

245 

j 

210 

9 

246 

■ 

211 

9 

247 

SJ 

212 

P 

248 

■o- 

213 

1 

249 

* 

214 

111 

250 

■ 

215 

n 

251 


216 

1 

252 

n 

217 

1 

253 

2 

218 

13 

254 

3 

219 

H 

255 

— 
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At the time this book was going to press, Atari was planning to add some 
new keywords to ST BASIC. This new version of the language was sched¬ 
uled to be included on the Language Disk supplied with all new ST com¬ 
puters sold after September 1986. The documentation manager at Atari was 
nice enough to give me a description of these new ST BASIC instructions. 
Because Atari received the final software from its programmers in England 
only days before this book’s deadline, however, this new material is pre¬ 
sented as an appendix. Moreover, because I did not have the software itself 
to test, the publisher and I make no warranty that the new keywords will 
work exactly as described. Nonetheless, the following descriptions should 
prove helpful to those who have the new version of ST BASIC. 


AREA 

Format: 

AREA X1,Y1,X2,Y2,X3,Y3[, . . . Xn,Yn] 

Purpose: Direct command; draws a polygon on the screen using the points 
you specify and fills it with the current fill color. Because a polygon is made 
up of three or more points, you must specify at least three (X,Y) pairs. For 
example, to draw a filled polygon with points at (20,25), (35,43), (100,125), 
(500,6), and (200,76), you would type 

AREA 20,25,35,43,100,125,500,6,200,76 


ASK MOUSE 

Format: 

ASK MOUSE X,Y,B 

Purpose: Function; gets the X,Y coordinates of the mouse pointer and the 
status of the mouse button. Use ASK MOUSE followed by three variables. 
You don’t have to name these variables X, Y, and B, but you might find their 
purpose easier to remember if you do. 


ASK RGB 

Format: 


ASK RGB color,r,g,b 
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Purpose: Function; stores the red, green, and blue levels of a color in the 
palette in the variables you specify. For instance, to find the color levels of 
color number 3 and store them in variables A, B, and C, you would type 

ASK RGB 3,A,B,C 

BOX 

Format: 

BOX [FILL] XI,Y1; X2,Y2 

Purpose: Command; draws a box on the screen with an upper left corner of 
(X1,Y2) and a lower right corner of (X2,Y2). If you include FILL immediately 
after BOX, the box will be filled with the current fill color. The following 
commands would draw one unfilled box and one filled box with the same 
coordinates: 

BOX 10,20;50,67 
BOX FILL 10,20;50,67 


DRAW 

Format: 

DRAW X1,Y1,X2,Y2[, . . . Xn,Yn] 

Purpose: Direct command; draws a series of lines using specified points on 
the screen. To use this command, type DRAW followed by all of the coordi¬ 
nate pairs that you want used. DRAW works like a dot-to-dot drawing; the ST 
starts with the first pixel point and draws to each one in the order that you 
specify. For instance, to draw a line from (10,15) to (76,57) and then from 
(76,57) to (45,30), you would type 

DRAW 10,15,76,57,45,30 


DRAWMODE 

Format: 

DRAWMODE mode number 

Purpose: Statement; if you put an image on the screen using DRAW, DRAW¬ 
MODE will tell the computer how to treat that object in relation to the other 








306 


UNDERSTANDING ATARI ST BASIC PROGRAMMING 


graphics on the screen. The four drawing modes are: 

Mode Number Purpose 

1 Replace (object you draw covers up everything behind it) 

2 Transparent (everything behind object you draw can still 
be seen) 

3 Exclusive OR 

4 Reverse Transparent (object you draw appears behind 

other graphics on the screen) 


GSHAPE 

Format: 

GSHAPE X,Y,array 

Purpose: Direct command; takes the graphics image you have stored in 
memory (called the raster) and puts it in the screen location you specify. The 
raster is a rectangular graphics area, and the (X,Y) coordinates you specify 
after GSHAPE tell the computer where the upper left corner of the raster 
should be placed. The array argument is simply the number array in which 
the raster is stored. This command works in conjunction with SSHAPE, 
which saves the raster from the screen into memory. 


LINEPAT 

Format: 

LINEPAT style[,pattern] 

Purpose: Function; changes the pattern used for the lines you draw on the 
screen. There are seven different styles you can specify after LINEPAT: 

Number Style 

1 Solid 

2 Long dash 

3 Dot 

4 Dash dot 

5 Dash 
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6 Dash dot dot 

7 User-defined pattern 

If you use style 7, you must enter a second number, which corresponds to 
the pattern you want. To input a pattern of your own, determine the 16-bit 
number for the pattern (with Is corresponding to graphics bits turned on and 
Os corresponding to bits turned off) and translate it into decimal. A pattern of 
0101010101010101 translates to 13,653, and typing 

LINEPAT 7,13653 

would put this line pattern into memory. 


MAT AREA 

Format: 

MAT AREA number, array 

Purpose: Direct command; similar to AREA, except that it uses several ver¬ 
tices (specified by the first argument) stored in an array (specified by the 
second argument). If you had 12 coordinate pairs stored in H°/o(), therefore, 
you would type MAT AREA 12,H%() to draw an area on the screen using 
those points. As with AREA, the polygon is filled with the current fill color. 
You can specify up to 128 different coordinate pairs when using MAT AREA. 


MAT DRAW 

Format: 

MAT DRAW number,array 

Purpose: Direct command; similar to MAT AREA, except that the polygon is 
not filled. You can also substitute MAT LINEF for this command. 


PATTERN 

Format: 

PATTERN plane,array 

Purpose: Function; creates a user-defined fill pattern. Type PATTERN followed 
by the plane number that corresponds to the number of array elements you 
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have used: 

Plane Number of 

Number Elements 

1 16 

2 32 

4 64 

Next, type the name of the array whose elements define the pattern. For 
example, suppose you stored 32 numbers in array Y%( ), to define the fill 
pattern you wanted. You would type FILL 2,Y%() to load this fill pattern into 
memory. 

As with LINEPAT, determine the numbers for the pattern you want by writ¬ 
ing down the binary numbers that correspond to the pixels you want turned 
on and off. Then translate these binary numbers into decimal and store them 
in an array. The binary numbers should each be 16 bits long. 


PI 


Format: 
variable # = PI 

Purpose: Function; stores the value pi in a variable. Type the variable name 
(which should be defined as double-precision by following it with the pound 
sign) followed by =PI. You can also use pi by itself in a mathematical for¬ 
mula. Pi is equal to approximately 3.1415926538979. 


RGB 

Format: 

RGB color number,red,green,blue 

Purpose: Statement; sets the red, green, and blue levels of a color in the 
palette. Follow RGB with the number of the color you want to change and 
then the red, green, and blue levels (which can each range from 0 to 7). For 
example, to change color number 5 to pure red, you would type 


RGB 5,7,0,0 
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SSHAPE 

Format: 

SSHAPE XI, Y1,X2,Y2,array 

Purpose: Direct command; stores a raster (a rectangular graphics area) into 
memory. Type SSHAPE followed by the coordinate of the upper left corner of 
the raster (XI, Y1), the lower right corner of the raster ( X2,Y2 ), and the array 
in which you want to store the raster. To store the rectangular region defined 
by the corners (25,50) and (367,132), in the array S%(), you would enter 

SSHAPE 25,50,367,132,S%() 

Remember that the array must be dimensioned (using the DIM statement) 
to allocate enough room for the raster. Since it is usually a good idea to 
dimension a rather large space (such as 500 or 1000 elements), make sure 
the program doesn’t run out of memory to store the raster. 






INDEX 


A 

ABS (ST BASIC function), 74 
AES (Application Environment Sys¬ 
tem), 156 
Alt key, 6 

AND (logical test), 254 
AREA (ST BASIC command), 304 
Arrays, 55-57 
Arrow keys, 5 

ASC (ST BASIC function), 80 
ASCII character set, 79, 299-302 
ASK MOUSE (ST BASIC function), 
304 

ASK RGB (ST BASIC function), 
304-305 

Atari 520ST and 1040ST 
differences between, 3-4, 7 
keyboards of, 4-5, 7 
ATN (ST BASIC function), 78 
AUTO (ST BASIC statement), 48 


B 

Backspace key, 6 
Backup copies, 24-25 
Bar and Line Graph program, 
245-250 
Bar graph, 103 

BASIC programming language, 32 
Binary numbers, 135-137 
Bits, 136 

Boxes, drawing, 101 

BOX (ST BASIC command), 305 

BREAK (ST BASIC statement), 255 

Buf graphics, 38 

Bytes, 137 


c 

Caps Lock key, 5 
Cartridges, 9-10 
CHAIN (ST BASIC statement), 
220-221 

CHAIN MERGE (ST BASIC state¬ 
ment), 221 

CHR$ (ST BASIC function), 80-81 
CINT (ST BASIC function), 75 
CIRCLE (ST BASIC statement), 
108-114 

CLEAR (ST BASIC command), 
70-71 

CLEARW (ST BASIC statement), 39 
Clock/Calendar, 19 
CLOSE (ST BASIC statement), 223 
Close box, 13 

CLOSEW (ST BASIC statement), 39 
Clr/Home key, 7 
COLOR (ST BASIC statement), 
92-93, 104-105 
Color Programmer program, 
237-241 
Colors 

defining, 105-106, 122-123 
definition tables for, 106, 124 
RGB (red-green-blue) levels in, 
177-178, 237 
Command window, 33 
COMMON (ST BASIC statement), 
221 

CONT (ST BASIC command), 257 

CONTRL (VDI variable name), 156 

Control key, 5 

Control Panel, 19 

Coordinates for graphics, 96 

Copying files, 14-15 

COS (ST BASIC function), 77 
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CVD (ST BASIC function), 212 
CVI (ST BASIC function), 212 
CVS (ST BASIC function), 212 


D 

DATA (ST BASIC statement), 57-59 
Debug menu, 39 
Decision-making, 60-62 
DEFDBL (ST BASIC statement), 72 
DEF FN (ST BASIC statement), 78 
DEFINT (ST BASIC statement), 72 
DEFSNG (ST BASIC statement), 72 
DEFSTR (ST BASIC statement), 
72-73 

DELETE (ST BASIC command), 64 
Delete key, 6 
Desktop, GEM, 12 
DIM (ST BASIC statement), 56 
DIR (ST BASIC command), 36, 216 
wildcards with, 216-217 
Disk drives, 11 

installation of, 26, 296-298 
Disk icon, 12 

Double-precision variables, 72 
DRAW (ST BASIC command), 305 
DRAWMODE (ST BASIC state¬ 
ment), 305-306 


£ 

EDIT (ST BASIC command), 62-64 
Edit window, 34, 38, 62 
ELLIPSE (ST BASIC statement), 
117-118 

ELSE (ST BASIC statement), 60-61 
END (ST BASIC statement), 66 
EOF (ST BASIC statement), 215 
ERA (ST BASIC command), 217-218 
ERASE (ST BASIC command), 71 
ERL (ST BASIC variable), 66 
ERR (ST BASIC variable), 66 


ERROR (ST BASIC statement), 66 
Error messages, list of, 283-295 
EXP (ST BASIC function), 76 


F 

FIELD (ST BASIC function), 207-208 
Files 

copying, 14-15 
random-access, 206-212 
sequential, 212 
throwing away, 16 
FILL (ST BASIC statement), 106 
Fill patterns, 183-184, 187-189 
FIX (ST BASIC function), 74-75 
Folder, 22-23 

FOLLOW (ST BASIC statement), 65 
Formatting a disk, 23-24 
FOR . . . NEXT (ST BASIC state¬ 
ment), 52-53 

FULLW (ST BASIC statement), 40 
Function keys, 5 


G 

GEM (Graphics Environment Man¬ 
ager), 12 
desktop, 12 

GEMSYS (ST BASIC statement), 198 
Generalized Drawing Primitives 
(GDP), 165-177 

GET (ST BASIC statement), 208-209 
GOSUB (ST BASIC statement), 

49-50 

GOTO (ST BASIC statement), 48-49 
labels for, 48-49 
GOTOXY (ST BASIC statement), 
83-84 
Graphics 

coordinates for, 96 
resolution of, 97-98 
GSHAPE (ST BASIC command), 306 
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H 

Hard disk port, 8 
Help key, 6 

HEX$ (ST BASIC function), 75-76 
Hexadecimal numbers, 76 
High/Low Game program, 227-231 


/ 

Icons, 12, 27 
for disk, 27-28 
for trash can, 28 
types of, 27-29 

IF . . . THEN (ST BASIC statement), 
60-62 

INP (ST BASIC statement), 202-203 
INPUT (ST BASIC statement), 45-47 
INPUT# (ST BASIC statement), 
213-214 
Insert key, 6 

INSTR (ST BASIC statement), 91-92 
INT (ST BASIC function), 74-75 
Integer variables, 72 
INTIN (VDI variable), 156-157 
INTOUT (VDI variable), 157 


K 

Keyboard, 4 
Alt key, 6 
Arrow keys, 5 
Backspace key, 6 
Caps Lock key, 5 
Clr/Home key, 7 
Control key, 5 
Delete key, 6 
function keys, 5 
Help key, 6 
Insert key, 6 

pointer-movement keys, 27 


Keyboards, (continued) 
adjusting response of, 20 
Tab key, 6 
Undo key, 6 
Keywords 

list of, 253-281 
syntax format of, xvi-xvii 
types of, 32 

KILL (ST BASIC statement), 217-218 
Kilobytes, 2 


L 

LEFTS (ST BASIC function), 89 
LEN (ST BASIC function), 89-90 
LET (ST BASIC function), 45 
LINEF (ST BASIC statement), 

98-104 

creating patterns with, 178-179 
width of lines in, 180 
LINE INPUT (ST BASIC state¬ 
ment), 45-47 

LINE INPUT# (ST BASIC statement), 

214 

Line numbers, 47-48 
LINEPAT (ST BASIC function), 
306-307 

LIST (ST BASIC statement), 33-34 
List window, 33 
LLIST (ST BASIC command), 
204-205 

LOAD (ST BASIC command), 36, 

215 

LOC (ST BASIC command), 223 
LOF (ST BASIC command), 223 
LOG (ST BASIC function), 77 
LOG 10 (ST BASIC function), 77 
Loops, 52-55 

LPOS (ST BASIC function), 204-205 
LPRINT (ST BASIC statement), 204 
LSET (ST BASIC statement), 208, 
211 
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M 

MAT AREA (ST BASIC command), 
307 

MAT DRAW (ST BASIC command), 
307 

Math symbols, 43 
Memory 
kilobytes, 2 
management, 70 
ROM, 4 

Menu bar, 17, 36 

MERGE (ST BASIC command), 37, 
218-220 

MID$ (ST BASIC function), 90-91 
MIDI (Musical Instrument Digital 
Interface), 10 

MKD$ (ST BASIC function), 211 
MKI$ (ST BASIC function), 211 
MKS$ (ST BASIC function), 211 
MOD (ST BASIC function), 75 
Modem, 7 
Monitor, 10 
installing, 297 
port, 9 
Mouse, 11 

click response of, 20 
Mouse Checker program, 190 
Move bar, 13 


N 

NAME (ST BASIC statement), 217 
Nesting loops, 53-54 
NEW (ST BASIC command), 36 
NEXT (ST BASIC statement), 52-53 
NOT (logical test), 270 
Numeric keypad, 7 
Numeric variables, 41, 45 


o 

OCT$ (ST BASIC function), 75-76 


Octal numbers, 76 
ON (ST BASIC statement), 51-52 
OPEN (ST BASIC statement), 222 
OPENW (ST BASIC statement), 39 
Open workstation, 197 
OPTION BASE (ST BASIC state¬ 
ment), 57 

OR (logical test), 271 

OUT (ST BASIC statement), 203-204 

Output window, 34 


P 

Palette controls, 20-21 
PATTERN (ST BASIC function), 
307-308 

PCIRCLE (ST BASIC statement), 
114-115 

PEEK (ST BASIC statement), 160 
PELLIPSE (ST BASIC statement), 
118-120 

Period. See WAVE 
Pie charts, 115-117 
Pie Chart program, 232-237 
PI (ST BASIC function), 308 
Pixels, 96-97 

POKE (ST BASIC statement), 122, 
157 

Polygons 

filled, 164-165 
Polyline, 161 
Polymarker, 163 
color of, 182-183 
type of, 181 
Ports 

monitor, 9 
printer, 8 
hard disk, 8 

POS (ST BASIC statement), 83 
PRINT (ST BASIC statement), 40-42, 
44 

PRINT# (ST BASIC statement), 
212-213 









314 


UNDERSTANDING ATARI ST BASIC PROGRAMMING 


PRINT USING (ST BASIC state¬ 
ment, 85-88 
Printer 

installation of, 22, 297-298 
port for, 8 
Printing 

on a printer, 204-205 
to the screen, 34-35 
Programming 

user-friendliness in, 40 
hints for, 250-251 
PTSIN (VDI variable), 156 
PTSOUT (VDI variable), 157 
PUT (ST BASIC statement), 208 


Q 

QUIT (ST BASIC command), 38 


R 

Random-access files, 206-212 
RANDOMIZE (ST BASIC state¬ 
ment), 78-79 

READ (ST BASIC statement), 57-59 
REM (ST BASIC statement), 65 
RENUM (ST BASIC command), 
65-66 

REPLACE (ST BASIC command), 
215 

Reset button, 9 

RESTORE (ST BASIC statement), 59 
RESUME (ST BASIC statement), 67 
RETURN (ST BASIC statement), 50 
RGB (red-green-blue) levels, 
177-178, 237 

RGB (ST BASIC function), 308 
RIGHTS (ST BASIC function), 88-89 
RND (ST BASIC function), 78-79 
ROM, 4 

Rounded rectangle, 174-175 


RS232C, 7, 21 

RSET (ST BASIC statement), 211 
RUN (ST BASIC command), 36 


s 

SAVE (ST BASIC command), 36, 215 
Scroll arrows, 14 
Sequential files, 212 
Set Preferences menu, 26 
SGN (ST BASIC function), 74 
SIN (ST BASIC function), 77 
Single-precision variables, 72 
Size box, 14 

SOUND (ST BASIC statement), 
132-134, 241 
Sound effects, 150-152 
Sound Programmer program, 
241-244 

SPACES (ST BASIC function), 82 
SPC (ST BASIC function), 82 
SQR (ST BASIC function), 76 
SSHAPE (ST BASIC command), 309 
ST BASIC, 32 

STEP (ST BASIC statement), 65 
STOP (ST BASIC command), 66 
STRS (ST BASIC function), 73 
STRINGS (ST BASIC function), 85 
Strings, 42-43, 85-86 
Subroutines, 49-50 
SWAP (ST BASIC statement), 70 
SYSTEM (ST BASIC command), 38 


T 

TAB (ST BASIC function), 81 
Tab key, 6 

TAN (ST BASIC function), 77 
Text 

font for, 193 
height of, 196 
style of, 194 
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Three-dimensional graphics, 
126-129 

Throwing away a file, 16 
TOS (Tramiel operating system), 12 
TRACE (ST BASIC command), 279 
Trash can, 16 

TROFF (ST BASIC command), 279 
TRON (ST BASIC command), 279 


u 

UNBREAK (ST BASIC command), 
280 

Undo key, 6 

UNFOLLOW (ST BASIC command), 
280 

UNTRACE (ST BASIC command), 
280 

User-friendly programming, 40 


V 

VAL (ST BASIC function) 73-74 
Variables 

double-precision, 72 
integer, 72 
numeric, 41, 45 
single-precision, 72 


Variables, (continued) 
string, 41, 42 

VDI (Virtual Device Interface), 156 
VDISYS (ST BASIC function), 
157-158 

VT52 Emulator, 7, 18-19 


w 

WAIT (ST BASIC statement), 203 
WAVE (ST BASIC statement), 
137-139, 241 
Waveforms, 139 

WHILE . . . WEND (ST BASIC state¬ 
ment), 54-55 

WIDTH (ST BASIC statement), 
205-206 

Wildcards, 216-217 
Windows, 12-17 
close box in, 13 
Command, 33 
Edit, 34, 38, 62-64 
List, 33 

move bar in, 13 
Output, 34 
scroll arrows in, 14 
size box in, 14 
using, 34-36 

WRITE (ST BASIC statement), 
214-215 

WRITE# (ST BASIC statement), 281 
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Programs on Disk 

If you’d like to use the same programs in this book but don’t 
want to type them in yourself, you can send for them on disk. 
The disk contains all the major programs in the book on a 
single-sided Atari ST disk. To obtain this disk, complete the 
order form and return it along with a check or money order 
for $12.00. 


Probotech, Inc. 

2201 The Alameda #10 
Santa Clara, CA 95050 

Name_ 

Address_ 

City/State/ZI P_ 

Enclosed is my check or money order. 

(Make check payable to Probotech, Inc.) 

Price includes applicable taxes and postage within the 
United States. 

Understanding Atari ST BASIC Programming 


SYBEX is not affiliated with Probotech, Inc. and assumes no responsibility for any 
defect in the disk or program. 







SYBEX introduces one of the most 
sophisticated communications 
packages for your IBM-PC at the cost 

of a book! 


Connect with Elf— 


“as easy to use as it is powerful . . . 
easy to understand . . . simple enough 
for beginners . . . satisfies the needs 
of sophisticated users . . . becomes 
practically automatic ...” 

—PC Products 


$ 49.95 

(Diskette and Book) 


Elf automates virtually all 
calls and file transfers and 
turns your computer into a 
remote. 


• Menu driven 

• Easy to install 

• Personality modules 

• Crash-proof error handling 

• Password protected post mode 

• Supports XMODEM protocol 

• Includes SYBEX-quality documentation 


ORDER NOW! CALL: 800 - 227-2346 




SYBEXCOMPUTERBOOKS 


are different 


Here is why . . . 

At SYBEX, each book is designed with you in mind. Every manuscript is 
carefully selected and supervised by our editors, who are themselves 
computer experts. We publish the best authors, whose technical expertise 
is matched by an ability to write clearly and to communicate effectively. 
Programs are thoroughly tested for accuracy by our technical staff. Our 
computerized production department goes to great lengths to make 
sure that each book is well-designed. 

In the pursuit of timeliness, SYBEX has achieved many publishing firsts. 
SYBEX was among the first to integrate personal computers used by 
authors and staff into the publishing process. SYBEX was the first to 
publish books on the CP/M operating system, microprocessor interfacing 
techniques, word processing, and many more topics. 

Expertise in computers and dedication to the highest quality product 
have made SYBEX a world leader in computer book publishing. Trans¬ 
lated into fourteen languages, SYBEX books have helped millions of 
people around the world to get the most from their computers. We hope 
we have helped you, too. 

For a complete catalog of our publications: 


SYBEX, Inc. 2344 Sixth Street, Berkeley, California 94710 
Tel: (415) 848-8233 Telex: 336311 





























Understanding 
Atari ST 

Basic Programming 


Here is a complete hands-on guide to BASIC programming for 
the Atari ST—including up-to-date details on the newest ST 
BASIC commands. This book belongs in the hands of every 
ST owner and user—whether you’re learning to program for 
the first time, or just interested in mastering the special features 
of the Atari ST. 

In a series of concise, easy-to-follow tutorials, you’ll work side 
by side with the author to design, enter, and modify a collection 
of working BASIC programs that illustrate everything from 
programming fundamentals to advanced ST BASIC techniques. 
Each routine is a useful building block, as well as an example of 
good programming style. Ready-made routines presented here will 
let you: 


About the Author 

Tim Knight is the author of more 
than 16 books on computers and 
robotics, and has written frequently 
for national computer publications. 
He currently heads his own 
educational robot company, Valley 
Robotics, and attends the Santa 
Clara University School of Business. 


• create sound effects 

• write music for three voices 

• draw three-dimensional graphics 

• show all 512 colors in the ST display 

• generate instant bar and pie charts 

• design creative uses for the mouse 


. . . and much more! And the author’s special “Programs and 
Problems” approach develops skills that will help you continue 
writing problem-solving programs on your own. You’ll also find: 


• a detailed look at the 520ST and 1040ST equipment, 
and how to set it up 

• a troubleshooting guide to the Atari ST error messages 

• a reference guide to ST BASIC keywords 

• complete installation notes 


SYBEX books bring you skills- 
not just information. 

As computer experts, educators, 
and publishing professionals, 
we care-and it shows. 

You can trust the SYBEX label 
of excellence. 


SYBEX 
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